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

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

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

program lesson20_1;
procedure allNumber(n: integer);
begin
    write(n, ' ');
    if n > 1 then
        allNumber(n - 1);
end;

var
    n: integer;
begin
    n := 10;
    allNumber(n);
    readln();
end.