Помогите пожалуйста создать программу в Паскале для того чтобы решать задачу "с полуночи до настоящего времени прошло а секунд,определить время которое показывают часы

Program chik;
var a,h:integer;
begin
read(a);
h:=(a div 3600)mod 24;
if(h>12)then begin
writeln(h, часов по электронной или ,h-12, часов по стрелки);
end;
if(h>0)and(h<13)then writeln(h,часов);
if(h=0)then writeln(полночь);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.