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
			
		

