pascalabcnet/InstallerSamples/!Tutorial/01_First/DivMod2.pas

// Операции div и mod
var a: integer := 247;

begin 
  write('Цифры числа в обратном порядке: ');
  // Выводим последнюю цифру
  write(a mod 10,' ');
  // Отбрасываем последнюю цифру
  a := a div 10;
  write(a mod 10,' ');
  a := a div 10;
  write(a mod 10,' ');
end.