Kek

program qq;
var x:real;
const a = 10;
      b = 5;
begin
x:=(Exp(b) - 2.5);
if x < (-1) then
  begin
    writeln('Ф = ', a + b*x + a*x*x );
    exit;
  end;

if (x>=0) and (x<1) then
  begin
    writeln('Ф = ', sqrt(a + b*x) );
    exit;
  end;

  writeln('Ф = ', -1*(a*x*x/4) + (b*x*x/2) );

end.