Question

Составить алгоритм который будет выводить на экран все целые числа из диапазона 1..N;
(repeat-until)

Answer 1

program gwr;

var

 i,n : integer;

 begin

   i := 1;

 writeln('Введите N');

 read(n);

 repeat

   writeln(i);

   i := i  +1;  

 until i > n  

 end.