Задача 1 Урок 12.1 Repeat/Until

Primary tabs

Submitted by i_love_cookies on Sat, 05/08/2021 - 11:45

{12-1.1 Выведите на экран, все числа от 55 до 9236.}

var a,b:integer;
begin
  a:= 55;
  b:= 9236;
  repeat
    write(a, ' ');
    a := a+1;
  until (a>b);
  readln();
end.