Введите положительное число 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.