var y:real;
begin
readln(y);
writeln(sqrt(sqrt(y)-3*y+3));
end.
Объяснение:
Другое дело, что область определения этой функции от 0 до 1,39, поэтому мало что туда вводится.
