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

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