Question

Помогите с написанием программы в паскале. Отдаю последние свои баллы!

Answer 1

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.