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

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.