Bài 4 thì thế này
Var giay,phut,gio:integer;
Begin
Write('Nhap so giay');
readln(n);
gio:= giay div 3600;
Phut:=(giay MOD 3600) div 60;
Giay:= giay mod 60;...