Напишите программу, подсчитывающую сумму всех чисел от 1 до N. Pascal

var n,i,s:integer;beginwrite('N='); readln(n);s:=0;for i:=1 to n do s:=s+i;writeln('s=',s);end.Пример:N=10s=55