Написать программку в паскале которая выводит на экран сумму первых 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.