program lab_04;
var a,b:real;
flag:boolean;

begin
writeln('BBEDUTE a');
readln(a);
Writeln('BBEDUTE b');
readln(b);
if abs (a)>abs (b) then flag:=true else flag:=false;
{writeln('PE3YJIbTAT =',a:3:3);
writeln('PE3YJIbTAT =',b:3:3);}
if ((a<0) and (b>0)) or ((a>0) and (b<0)) then
if flag then if b>0 then a:=abs(a)
else a:=-1*abs(b)
else if a>0 then b:=abs(b)
else b:=-1*abs(b)
else if flag then b:=a else a:=b;
Writeln('A=',A:3:3);
Writeln('B=',B:3:3);
readln
end.