Объяснение:
var i, s:Real;
begin
i:=0;
readln(s);
if s >=0 then begin
i:=sqrt(s)+s*2;
writeln(i:0:2);
end
else begin
writeln('False');
end;
end.
