program Sum_1mas;
var
a:array [1..10] of integer:
i, s : integer;
begin
writeln(' Введите 10 чисел ' );
for i:=1 to 10 do readln(a[i]);
s:=0;
for i:1 to 10 do s:=s+a[i];
writeln('исходный массив');
for i:=1 to 10 write(a[i], ' ');
writeln('ответ');
writeln(s);
readln;
end.
Программа компилируется . Я ввожу числа 12+12 ит.д Нажимаю Enter и выходит ошибка Runtime error 106 $0040146B
$00407641