Написать программу в паскале которая выводит на экран сумму первых n целых чисел. количество суммируемых чисел должно вводиться во время работы программы

program zz1;

var n, i, s:integer; / / задаем переменные целого типа

begin

write (' введите количество суммируемых чисел n '); / / вводим заданное количество чисел

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все числа от единицы до заданного n

s:=s + i; / / находим сумму натуральных чисел, прибавляя очередное число из цикла к сумме

writeln (' сумма первых n целых чисел = ', s); / / выводим ответ

end.