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

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