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

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

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

 var a,n:integer;
begin
  a:=1;
  writeln('vvedite chislo');
  readln(n);
  repeat
    write(a,' ');
    a:=a+1;
  until (a>n);  
  readln();
end.
        
Вывод консоли:
vvedite chislo
7
1 2 3 4 5 6 7