Написать программу для вычисления суммы 10+20+30+...+400.Программа: PascalABC

begin
  Writeln(Range(10,400,10).Sum);
end.


8200



begin
  var n:=10;
  var s:=0;
  while n<=400 do begin s+=n; n+=10 end;
  Writeln(s);
end.