Обчислить значение f за формулой f=a-b²/ac-bзаписать в паскале,!

Вот код

Объяснение:

Program pr1(output);

var a,b,c,f:real;

begin

   write('a = ');

   read(a);

   write('b = ');

   read(b);

   write('c = ');

   read(c);

   f:=(a-b*b)/(a*c-b);

   writeln('f =', f);

end.