Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
Пятизначное число в троичной системе счисления должно иметь ненулевой пятый разряд, т.е. в десятичной системе счисления его величина должна принадлежать интервалу [3^4; 3^5-1], что составляет [81;242].
В римской записи (а не системе счисления, римляне использовали десятичную) этот интервал запишется как [LXXXI;CCXLII], т.е. будут использованы символы С, I, L, X, V
Лишнее дверцы, потому что остальные слова не имеют единственного числа.
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.