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

Задача 1 урок 20

Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

program u20z1;
var n:integer;
function fun(n1:integer):integer;
begin
   write(n1,' ');
   if ((n1)>1) then
     result:=fun(n1-1);
end;
begin
    writeln('vvedite n');
    readln(n);
    fun(n);
    readln();
end.