Определить угол между положением часовой стрелки

uses crt;
var h,m,s,ks:longint;
    u:real;
begin
clrscr;
repeat
write('Часы от 0 до 23 h=');
readln(h);
until h in [0..23];
repeat
write('Минуты от 0 до 59 m=');
readln(m);
until m in [0..59];
repeat
write('Секунды от 0 до 59 s=');
readln(s);
until s in [0..59];
h:=h mod 12;
ks:=h*3600+m*60+s;
if ks=0 then u:=0
else  u:=360*ks/43200;
write('Угол=',u:0:2,' grad');
readln
end.

  uses crt;
  var a,b:integer;
  c:real;
 
BEGIN
  clrscr;
  write('Введите часы и минуты через пробел ');
  read(a,b);
  c:=(a*60+b)/2;
  write(c:0:0);
  readkey;
END.

uses crt;
  var a,b,c:longint;
  f:real;
 
BEGIN
  clrscr;
  writeln('');
  read(a,b,c);
  if (a*3600+b*60+c) < 44200 then
  f:=(a*3600+b*60+c)/120 else
  f:=360 - (a*3600+b*60+c)/120;
  write(abs(f):0:0);
  readkey;
END.

program time;
uses crt;
var g,m,s:integer;
begin
Write('Enter godiny = ');readln(g);
Write('Enter minuty = ');readln(m);
Write('Enter secundy = ');readln(s);
Writeln;Writeln;
g:=(g*3600);
m:=(m*60);
s:=((m+g+s)*6);
Writeln;
writeln('Answer = ',s);
end.