Question

написать программу печатающую все целые числа от А до B введенных с клавиатуры (repeat)​

Answer 1

var

 a, b, i: integer;

begin

 read(a, b);

 i := a;

 repeat

   write(i,' ');

   i := i + 1;

 until i > b

end.