Question

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

Answer 1

var
n,s:integer;
begin
for n:=0 to 20 do
s:=s+n;
writeln(s);
end.