Выведите на экран значение суммы натуральных чисел от 1 до 10. Паскаль

var i,s:integer;

begin

for i:=1 to 10 do s:=s+i;

writeln (s)

end.