Вот код
Объяснение:
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.
