Часовая стрелка образует угол 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.