Введите положительное число A. Найдите сумму всех натуральных чисел из промежутка [1,A].
напишите на паскале плз.

Program aga;
var i, sum,a : integer;
begin
writeln(Введите А: );
readln(a);
for i := 1 to a do
     sum := sum + i;
writeln(Сумма равна: , a);
end.