Часовая стрелка образует угол y с лучом, проходящим через центр и через точку, соответствующую 12 часам на циферблате, 0

var fi,u: real;
h,m: word;
begin
repeat
write(' Угол часовой стрелки от 0 до ',2*pi:0:2,' fi=');
readln(fi);
until(fi>=0)and(fi<=2*pi);
m:=trunc(fi*2*180/pi);
h:=m div 60;
writeln('Часов=',h);
m:=m mod 60;
writeln('Минут=',m);
u:=m*6*pi/180;
write('Угол минутной стрелки=',u:0:2,' rad');
readln
end.