Напишите программу, которая считывает с клавиатуры одно дробное число и выводит обратное ему. Если при этом введённое с клавиатуры число меньше по абсолютной величине одной миллионной (в частности, если оно равно нулю), вывести вместо этого миллион.

Пример
Ввод Вывод
0.5 2.0

var i,x: Integer;n: Real;beginx:=1;readln(n);if n<>0 then beginwhile frac(n)<>0 dobeginn:=n*10;x:=x*10;end;if frac(x/n)=0 then writeln(x/n) else writeln(x,'/',n);end elsewriteln('1000000');end.