Question

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

Answer 1

var
ch,sum,i:longint;
begin
sum:=0;
WriteLn('Вводите числа.');
for i := 1 to 5 do
begin
readln(ch);
inc(sum,ch);
end;
WriteLn('Ответ: ',sum)
end.