Составить программу нахождения s=1+2+3..+n уровень 9 класса

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