program calc;
var y, y1, y2, x:real;
begin
  writeln('Input x');
  readln(x);
  if x<=0 
   then writeln('Нет решений')
   else 
    begin
     y2:=...;
     if x>=5 
        then y1:=... 
        else y1:=...;
     y:=y1+sqr(y2);
     writeln('y=',y);
    end;
readln;
end.