program zadacha1;

var x, y: real;

begin

writeln('Введите x');

readln(x);

if x < 5 then y:=8-3*x-x*x

else y:= sqrt(x) + 10;

writeln('y= ',y);

end.