Program DIVMODFN ;

function LZ(J : word) : string { LZ:=00..99 } ; var St : string [2] ;
begin Str(J:2, St) ; if St[1]=#32 then St[1] := '0' ; LZ := St end ;

function DM { Helps convert small units to many units }
  (const X : longint ; var Z : longint ; const F : longint) : longint ;
begin DM := X div F ; Z := X mod F end {DM} ;
{ See http://www.merlyn.demon.co.uk/remaindr.txt to combine div, mod }

var D, H, M, S, i, ft, yd, ch, fu, mi, L, f : longint ;

begin
Writeln('DIVMODFM  J R Stockton  www.merlyn.demon.co.uk  >=2000-09-15') ;
D := DM(DM(DM(1234567,S,60),M,60),H,24) ;
Writeln(D:4, LZ(H):4, ':', LZ(M):2, ':', LZ(S):2) ;
mi := DM(DM(DM(DM(DM(1234567,i,12),ft,3),yd,22),ch,10),fu,8) ;
Writeln(mi:4, fu:4, ch:4, yd:4, ft:4, i:4) ;
L := DM(DM(DM(1234567,f,4),D,12),S,20) ;
writeln('œ':2, L, '/', S, '/', D, ' ', f, '/4') ;
Readln ;
end.