Question

Язык Паскаль, помогите...

Answer 1

var
  a, n, b: integer;
  
begin
  readln(a, b);
  for n := a to b do
    write(n, ' ');
  writeln();
  writeln(b - a + 1);
end.
==============
var
  a, b: integer;
  
begin
  readln(a, b);
  writeln((2 * a + (b - a)) * 0.5 * (b - a + 1)); //Через арифм. прогрессию эффективнее
end.