uses crt; var x:real; begin writeln('Ââåäèòå x'); readln(x); if(x<0) then writeln ('y= ',sqr(x)-5) else if(x=0) then writeln ('y= ',3) else writeln ('y= ',x-3); end.