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

var fi,u: real;h,m: word; beginrepeat 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.