с написанием программы в паскале. От

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.