Идет k-я секунда суток. Определить сколько полных часов — X и полных минут — Y прошло к этому моменту — Pascal(Паскаль)

var
k,X,Y:integer;
BEGIN
write('Введите число секунд k=');
readln(k);
X:=k div 3600;
Y:=k div 60;
writeln;
writeln('Прошло ',X,' часов и ',Y,' минут');
readln;
END.