УГОЛ-фи

[DRAgon™]

наткнулся на задачу никак не пойму как ее решить,может подскажите

Часовая стрелка образует угол fi с лучом, проходящим через центр и через точку, соответствующую 12 часам на циферблате: 0<fi<2pi Определить значение угла для минутной стрелки для заданного величины fi, а также количество полных часов и полных минут.

[begemotikdin]

определить сначала где находится часовая стрелка по введенному углу(fi) и далее определить где находится минутная.....

[puporev]

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

[DRAgon™]

Сообщение от puporev

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

Ураа,спасибо