Написать программу ** языке паскаль. Найти сумму 20 чисел введенных с клавиатуры.

Question

Написать программу на языке паскаль. Найти сумму 20 чисел введенных с клавиатуры.

Answer 1

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.

Answer 2

уже не помню паскаль, но сейчас, начинается вроде так

 

Program Suma;
var
a,b,c:integer;
Begin
a:=0;
b:=0;
readln(a,b);
c:=a+b;
writeln(a,'+',b,'=',c);
End.