C клавиатуры вводится К-количество часов .Определить сколько полных часов ,минут,секунд — Pascal(Паскаль)

uses crt;
var k:integer;
 
begin
 clrscr;
 write('K -> ');
 readln(k);
 writeln(k*60,' минут');
 writeln(k*60*60,' секунд');
 readln;
end.

uses crt;
var n,s,m,h:longint;
begin
clrscr;
write('Количество секунд n=');
readln(n);
h:=n div 3600;
m:=n mod 3600 div 60;
s:=n mod 60;
write('Это ',h,' час ',m,' мин ',s,' сек');
readln
end.