var
  m,n:integer;
begin
  Write('Введите два натуральных числа от 1 до 999: '); Readln(m,n);
  if (m<1) or (m>999) or (n<1) or (n>999) then
    Writeln('Вы нарушили требования по значению чисел')
  else begin
    Writeln('Вывод "в столбик"'); Writeln(m:3); Writeln(n:3)
  end
end.

Пример работы программы:

Введите два натуральных числа от 1 до 999: 25 132
Вывод "в столбик"
 25
132