ДАЮ 25 БАЛЛОВ
Дано 2 числа.
Необходимо большее из чисел утроить (х3) , а в случае равенства чисел выдать сообщение "числа равны"​

begin

 var (a, b) := ReadInteger2;

 if a = b then

   Println('Числа равны')

 else

   Println(Max(a, b) * 3)

end.

===== на PascalABC.NET =====

Питон:

a = int(input())

b = int(input())

if a > b:

   a = a ** 3

   print(a)

elif b > a:

   b = b ** 3

   print(b)

else:

   print('Числа равны')

Паскаль:

program chet;

var

a,b : real;

begin

read(a,b);

if a > b then

begin

a := a ** 3

end;

if b > a then

begin

b := b **3;

write(b);

end

else

write('Числа равны');

end.