Написать программу, выводящую на экран числа 10, 20, 30, 40, 50, 60, 70, 80,90,100 с цикла for, и подсчитывающую их сумму. (паскаль)

Var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
 begin
 write(10*i,' ');
 s:=s+10*i;
 end;
writeln;
writeln('s = ',s);
end.

Результат:
10 20 30 40 50 60 70 80 90 100
s = 550