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

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

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

var N, M: integer;

function pow(N,M:integer):integer;
begin
   if(N >= M) then
     begin
       write(N,' ');
       result:=pow(N-1,M);
     end;
end;

begin
  writeln('vvedite N>0 (int)');
  readln(N);
  writeln('vvedite M>0 (int)');
  readln(M);
  if N > M then
    pow(N, M)
  else if N < M then
    pow(M, N)
  else
    writeln('Error');
  readln();
end.