1)
var x,y,F:real;
begin
write('Введите x ');
readln(x);
write('Введите y ');
readln(y);
if (y>0) then F:=x*x*x+2/y
writeln('F=',F)
end.
Как-то так наверн :)
2)
var a,b,F:real;
begin
write('Введите a ');
readln(a);
write('Введите b ');
readln(b);
if(a>1) then sqr(a+b)/a-1
writeln('F=',F)
end.