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

var i,s:integer;begins:=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