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

Pascal ABC

Var A,B:real;
Begin
Write('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.