Напишите программу вычисления суммы первых n целых положительных чисел (значение n вводится). напишите весь алгоритм

Var n,i,s:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
  s:=s+i;
writeln('Сумма: ',s);
end.