Написать программу.Для данного х вычислить значение функции: 4x F= 1/(x-6)

var x,f:real; begin writeln('x'); readln(x); f:=1/(x-6); x:=4*x; writeln(f:5:2);writeln(x:5:2);end.