var x,f : real;
begin
write('Введите Х:');readln(x);
f:=sqr((sqr(x)+1))+3*(x+1);
writeln('F=',f);
end.
var x,f : real;
begin
write('Введите Х:');readln(x);
f:=sqr((sqr(x)+1))+3*(x+1);
writeln('F=',f);
end.