Вводятся n целых чисел. Найти сумму всех чисел.

А что такое A?

Просто переменная, целого типа

Program n1;var n,sum,a,i: integer;beginreadln(n);sum:=0;for i:=1 to n dobeginreadln(a);sum:=sum+a;end;writeln(sum);end.

VarA,n:integer;S:real;BeginWrite('n = ');ReadLn(n);For n:= 1 to n do    Begin    Read(A);    S:=S+A;    End;WriteLn('Сумма чисел равна ',S);End.