Question

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

Answer 1

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.