Урок 12.1 Задача 1

Урок 12.1 Задача 1

Вывести на экран все числа от 1 до N с помощью цикла repeat/until.

Решение:

program Project1;
var q, n: integer;
begin
  writeln('введите целое число');
  readln(n);
  q:=1;
  repeat
    write(q, ' ');
    q:= q + 1
  until q > n;

  readln();
end.