kode pascal konversi waktu

program konversi_waktu;
uses wincrt;
var
x,dt,mnt,jm,sisa1,sisa2:longint;
begin
writeln('PROGRAM KONVERSI WAKTU');
writeln('--------');
writeln;
write('masukkan waktu dalam detik: ');read(x);
jm:=x div 3600;
sisa1:=x mod 3600;
mnt:=sisa1 div 60;
sisa2:=mnt mod 60;
dt:=sisa2;
write('jadi waktu: ',jm,'jam ',mnt,'menit ',dt,'detik'); readln;
readkey;
end.