Запишите математическую формулу в виде арифметического выражения на Фортране

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.

Часовая стрелка делает полный оборот, т.е. поворачивается на 360° за 12 часов. Следовательно, за 1 час она повернется на 360/12 = 30°, а за Н часов - на 30°×Н.
В часе 60 минут и за это время часовая стрелка повернется, как мы вычислили, на 30°. Тогда за М минут она повернется на 30°×М/60 или на М/2 градусов.
В минуте 60 секунд, а за минуту стрелка повернется на 1/2 градуса. Тогда за секунду она повернется на 1/(2×60) = 1/120 градуса. А за S секунд - соответственно на S/120 градусов.

Окончательно получаем, что за время от полуночи, равное H:M:S, часовая стрелка повернется на 30*H+M/2+S/120 градусов.

Программа на языке Python 3.4.2
h=float(input('H='))
m=float(input('M='))
s=float(input('S='))
print(30*h+m/2+s/120)

Пример выполнения
Python 3.4.3 (v3.4.3:9b73f1c3e601, Feb 24 2015, 22:43:06)
H=5
M=18
S=48
159.4