проверь, не застрял ли кардридж печати.
попробуй поменять режим печати на черно-белый или на цветной
самый очевидный, перезапустить принтер (хотя наверно попробывал думаю)
возможно дело в драйвере к принтеру, попробуй установить другой версии.
обычно кстати к принтерам делают софт с которого проще машиной, поищи мб есть.
если ранее небыло такой проблеммы при постоянном использовании, то перезапуск обычно решает проблемму.
еще как вариант( если печатаешь с пк а не на прямую), подключи принтер через другой порт usb
вроде все варианты перебрал, разве что кроме очевидной поломки внутренних частей принтера.а так все
n, i, p1, p2: integer;
begin
read(n);
p2 := n mod 10;
while n > 0 do
begin
if(n div 10 <= 0) then p1 := (n mod 10);
n := n div 10;
end;
write(p2 / p1);
end.