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.
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.