задание 1 Урок 21

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

задание 1 Урок 21

program U21z1;
function nTo1 (n:integer):Integer;
 begin
  if n > 0 then
   begin
     writeln(n);
     nTo1(n-1);
   end;
  end;
begin
  nTo1(5);
readln();
end.