Начало думаю сами сможете написать a:=78906 for i = 1 to 5 do begin c:=a mod 10 writeln (c); a:=a-c end; end.