Напишите программу на Паскале, вычисляющую сумму первых N положительных целых чисел.

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

program ex27;
uses crt;
var i, x, n, s: integer;
begin
clrscr;
s:=0; {обнуляем сумму}
write('Введите число n=');
readln(n);
for i:=1 to n do
begin
s:=s + i;
end;
write('s=',s:6);
readln;
end.