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