Помогите!! пожалуйста!​

var x,s,m,ch:integer;

begin

WriteLn('Сколько прошло секунд с начала суток?' );

ReadLn(x);

ch:= x div 3600;

m:= x mod 3600 div 60;

s:= x mod 3600 mod 60;

write('С начала суток прошло ',ch,' час(ов) ',m,' минут и ',s, ' секунд(ы)');

end.