Написать программу (в паскаль) которая выводит на экран целую часть и остаток от деления любого введенного числа на 10

begin
  var n:=ReadInteger('n=');
  Writeln('Целая часть ',n div 10,', остаток ',n mod 10)
end.


n= 253421
Целая часть 25342, остаток 1