Verified answer

Если выводить цифры четырёхзначного числа то вот (можно и менее):

program chislo;

uses crt;

var a,b:integer;

begin

writeln ('Введите четырёхзначное число или менее');

readln (a);

if a>9999 then begin

writeln ('Недопустимое значение');

halt;

end;

repeat begin

 b:=a mod 10;

 writeln (b);

 a:=a div 10

 end

 until a=0;

end.