Question

Составте программу нахождения суммы чисел 10+11+12+...+40

Answer 1

var
  a, b: integer;

begin
  for a := 10 to 40 do
    b := b + a;
  writeln(b);
end.