program zadanie3;
var
  a,x:real;
begin
  writeln('Podaj wartosc x: ');
  readln(x);
repeat
      begin
      if (x=-7.5) or (x=3.25) then
         begin
               writeln('Blad. Mianownik rowny zero.');
               writeln('Podaj wartosc x: ');
               readln(x);

         end;
      end;
until ((x<>-7.5) and (x<>3.25));
      a:=(x*x-2*x)/(4*x*x+17*x-97.5);
      writeln('Wynik: ', a:3:3);
writeln('Nacisnij enter aby zakonczyc...');
readln();
end.