Написать программу.для данного х вычислить значение функции: 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.