program lab_04;
var a,b,temp:real;
begin
writeln('BBEDUTE a');
readln(a);
if ((a<0) and (b<0)) or ((a>0) and (b>0)) then
if (a<b)then;
writeln('PE3YJIbTAT =',b);
writeln('PE3YJIbTAT =',b);
if
(a<0) and (b>0) or (a>0) and (b<0)then;
if
(a<b)then;
A:=(a*a)*b;
B:=b;
if
(a>b)then;
A:=a;
B:=(b*b)*a;
Writeln('A=',A);
Writeln('B=',B);
readln
end.