[i][i]Program Task37;
  [i][i]Var
  [i][i]x,y : Real;
[i][i]Begin
[i]
[i]Write('x=');
[i][i]
[i]Readln(x);
[i]if x>4 then y:=1/x-4
else if x<=4 then y:=sqr(x)
else y:=sqrt(x);
[i]Writeln('y=',y:0:4);
[i][i]
[i]Readln;
[i]End.