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

Var i,n,s:integer;
begin
read (n);
s:=0;
for i:=1 to n do
begin
s:=s+i;
end;
writeln (s);
end.