Переведите код программы из паскаля в пайтон, . program physik;Vara : integer;v, G, M, R, h : real;beginwriteln ('Типы решаемых задач:');writeln ('1 - нахождение v (первая космическая скорость);');writeln ('2 - нахождение G (гравитационная постоянная);');writeln ('3 - нахождение M (масса планеты);');writeln ('4 - нахождение R (радиус планеты);');writeln ('5 - нахождение h (высота над поверхностью планеты). ');write ('Напишите номер типа задачи: ');readln (a);if a=1 thenbeginwrite ('Напишите через пробел значения G, M, R, h: ');readln (G, M, R, h);v := sqrt(G*M/(R+h));writeln ('Ответ: v=',v:5:2);end;if a=2 thenbeginwrite ('Напишите через пробел значения v, M, R, h: ');readln (v, M, R, h);G := sqr(v)*(R+h)/M;writeln ('Ответ: G=',G:5:2);end;if a=3 thenbeginwrite ('Напишите через пробел значения v, G, R, h: ');readln (v, G, R, h);M := sqr(v)*(R+h)/G;writeln ('Ответ: M=',M:5:2);end;if a=4 thenbeginwrite ('Напишите через пробел значения v, G, M, h: ');readln (v, G, M, h);R := G*M/sqr(v)-h;writeln ('Ответ: R=',R:5:2);end;if a=5 thenbeginwrite ('Напишите через пробел значения v, G, M, R: ');readln (v, G, M, R);h := G*M/sqr(v)-R;writeln ('Ответ: h=',h:5:2);end;if (a<1) or (a>5) thenwriteln ('Такого номера типа задачи не существует. ');writeln ('Перезапустите программу и выберите номер типа задачи от 1 до 5. ');end.