var a,b,c,d:real;
Begin
read(a,b,c,d);
if ((a<c) and (b<d)) or ((b<c) and (a<d)) then
writeln('Впишется')
else writeln('Не впишется');
End.
var a,b,c:real;
Begin
read(a,b,c);
if (a>b) and (a>c) then a:= b*c;
if (b>a) and (b>c) then a:= a*c;
if (c>b) and (c>a) then a:= b*a;
writeln(a);
End.
3)var x,y,z,u:real;
function max(x,y,z:real):real;
begin
if (x>=y) and (x>=z) then max:= x;
if (y>=x) and (y>=z) then max:= y;
if (z>=y) and (z>=x) then max:= z;
end;
function min(x,y,z:real):real;
begin
if (x<=y) and (x<=z) then min:= x;
if (y<=x) and (y<=z) then min:= y;
if (z<=y) and (z<=x) then min:= z;
end;
Begin
read(x,y,z);
u:=(max(x,y,z)*max(x,y,z)-exp(x*ln(2)))/(sin(2*x)+max(x,y,z)/min(x,y,z));
writeln(u);
End.
