Вывести на экран следующий ряд чисел 10,20,30,40,50,60

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

Объяснение: