задача 1 урок 12.1

задача 1 урок 12.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.