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

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

Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

program lesson20_2;
procedure allNumber(n, m: integer);
begin
    write(n, ' ');
    if n < m then
        allNumber(n + 1, m);
end;

var
    n, m: integer;
begin
    n := 15;
    m := 10;

    if n < m then
        allNumber(n, m)
    else
        allNumber(m, n);

    readln();
end.