Program Сhisla;vara, s, n: integer;Begins:=0;For n:= 1 to 20 do begin
Write (' Введите число А=');read (a,);s:= s + a;
end;write ('Сумма 20 чисел пользователя = ', s);End.
уже не помню паскаль, но сейчас, начинается вроде так
Program Suma;vara,b,c:integer;Begina:=0;b:=0;readln(a,b);c:=a+b;writeln(a,'+',b,'=',c);End.
Program Сhisla;
var
a, s, n: integer;
Begin
s:=0;
For n:= 1 to 20 do begin
Write (' Введите число А=');
read (a,);
s:= s + a;
end;
write ('Сумма 20 чисел пользователя = ', s);
End.
уже не помню паскаль, но сейчас, начинается вроде так
Program Suma;
var
a,b,c:integer;
Begin
a:=0;
b:=0;
readln(a,b);
c:=a+b;
writeln(a,'+',b,'=',c);
End.