#4 нужно программу создать ** паскале

Question

#4 нужно программу создать на паскале

---

Answer 1

5
program IfElse;
var 
 x, y: real;
begin
  writeln (x,y);
  read (x,y);
  if x<=2<br>    then y:=sqr(x)+4*x+5
    else y:=cos(x)/(sqr(x)+4*x+5);
  writeln ('y=', y);
  readln;
end;

6
program IfElse;
var 
 x, y: real;
begin
  writeln (x,y);
  read (x,y);
  if x<=0<br>    then y:=0;
    else if (x>0 and x<=1)<br>              then y:=2*x*sin(x)
              else y:=sqr(sqr(x));
  writeln ('y=', y);
  readln;
end;