Ввести два неравных числа A и B. Выяснить что больше B^A или
A^B ,
при этом выведя на экран оба значения.

спасибо

Pascal ABCVar A,B:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);if Power(A,B)>Power(B,A) then WriteLn(Power(A,B),' > ',Power(B,A))else WriteLn(Power(A,B),' < ',Power(B,A))End.