В ЧЕМ ОШИБКА?
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.
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.
Answers & Comments
Verified answer
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.