var x,y: real;
begin
writeln('введите x');
read(x);
if x<5 then begin
y:=x*x-10; write(y);
end else if x>7 then begin
y:=sqrt(x-11); write(y);
end else writeln('нет решений')
end.
var x,y: real;
begin
writeln('введите x');
read(x);
if x<5 then begin
y:=x*x-10; write(y);
end else if x>7 then begin
y:=sqrt(x-11); write(y);
end else writeln('нет решений')
end.