VAR
 x,y:Real;

Function f(xf,yf:real):Real;
 Begin
  If (xf<0) and (yf<0) then
   f:=1.0/sqr(sqr(xf))/xf+exp(-yf)
  else
   f:=1.0/(ABS(xf*xf+yf*4-5)+1);
 End;

BEGIN
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 Writeln('f= ',f(x,y):0:5);
 Readln;
END.

VAR
 x:array[1..4] of Real;
 S,P,Max,Min:Real;
 i:Integer;
BEGIN
 S:=0;
 P:=1;
 For i:=1 to 4 do
  begin
   Write('x[',i,']= ');
   Readln(x[i]);
   P:=P*x[i];
   S:=S+x[i];
  end;
 Max:=x[1];
 Min:=x[1];
 For i:=2 to 4 do
  begin
   If x[i]>Max then Max:=x[i];
   If x[i]<Min then Min:=x[i];
  end;
 If (Max+Min)>S-(Max+Min) then
  begin
   If P<0 then writeln('No solution!')
   else Writeln('Result= ',Sqrt(Sqrt(P)):0:5);
  end
  else
  Writeln('Result= ',S/4:0:5);
 Readln;
END.

VAR
 n,m3,m5:Byte;
BEGIN
 Write('n= ');
 Readln(n);
 m3:= n mod 3;
 m5:= n mod 5;
 If m3=0 then
  begin
   Write(n,' contains 3 and ');
   if m5=0 then Writeln('5')
   else Writeln('does not contain 5');
  end
  else
  begin
   if m5=0 then
    Writeln(n,' does not contain 3 and contains 5')
   else
    Writeln(n,' contains neither 3 nor 5');
  end;
 Readln;
END.