Question

Cоставить программу в Паскале: напечатать первые n натуральных чисел. n вводится с клавиатуры. Только с помощью оператора repeat 

Answer 1

Var n,a:integer;
Begin 
a:=1; 
   write('Введите n:'); readln(n); 
         repeat 
    write(a,', '); 
    a:=a+1; n:=n-1; 
        until(n=0);
End.

Answer 2

Спасииибо^^