Очень срочно, решите пожалуйста (с++) Напишите программу, которая получает с клавиатуры коли- чество секунд и время в часах, минутах и секундах

program n7;

var s,h,m:integer;

begin

writeln('Введите число секунд:');

readln(s);

h:=s div 3600;

s:=s mod 3600;

m:=s div 60;

s:=s mod 60;

writeln(h,' часов ',m,' минут ',s,' секунд');

end.