В ЧЕМ ОШИБКА?

program ABC;
var F,x:real;
var y:integer;
begin
readln(x,y);
If x>=0 and y>0 then F:=(sqrt(x/y))*(5*(y*y)-x) else F:=(3.3*x-y)/(7*x*y);
writeln('F=',F);
end.

var

   F, x, y: real;

begin

   readln(x, y);

   if (x >= 0) and (y > 0) then  

       F := sqrt(x / y) * (5 * y * y - x)  

   else  

       F := (3.3 * x - y) / (7 * x * y);

   writeln('F=', F);

end.