Ввести два неравных числа 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.