С начала суток часовая стрелка повернулась на у градусов (0lt;=уlt; 360,

ровная задача
uses crt;
var u:real;
nbsp;nbsp;nbsp;nbsp;h,m:integer;
begin
clrscr;
repeat
write(Введите угол поворота часовой стрелки 0lt;=ult;360 u=);
readln(u);
until(ugt;=0)and(ult;360);
h:=trunc(u/30);
m:=trunc(2*u)-h*60;
writeln(С начала суток прошло);
if hlt;10 then write(0,h,:) else write(h,:);
if mlt;10 then write(0,m) else write(m);
readln
end.

оборотная задачка
uses crt;
var u:real;
nbsp;nbsp;nbsp;nbsp;h,m:integer;
begin
clrscr;
repeat
write(Введите количество часов от 0 до 11 h=);
readln(h);
until h in [0..11];
repeat
write(Введите количество минут от 0 до 59 m=);
readln(m);
until m in [0..59];
writeln(Угол поворота часовой стрелки составил: );
u:=h*30+m/2;
write(u:0:2);
readln
end.