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