Идет к-ая секунда суток. определите, сколько полных часов (h) и полных минут (м к этому моменту. (например, если к=13257=3*3600+40*60+57, то h=3 и m=40) надо написать программу на основе pascalabc

Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.