var m,n:real;
begin
write ('m='); readln (m);
write ('n='); readln (n);
writeln ('-----vivod-----');
if (m>100) and (n>100) then 
begin
if m<n then n:=m else m:=n;
writeln ('m=',m);
writeln ('n=',n);
end else
if (m>0) and (n<0) then begin
m:=m/2;
n:=n/2;
writeln ('m=',m);
writeln ('n=',n);
end else 
write ('sredn. arifm =',(n+m)/2);
end.