Составить программу позволяющую из двух данных чисел большее заменить удвоенным произведением этих чисел ( паскаль,9 класс)

Var a, b:Integer ;

Begin

Write('a=') ;read(a) ;

Write ('b=') ;read(b) ;

If a>b then a:=2*a*b;

If b>a then b:=2*a*b;

Write(' a=',a,' b=', b) ;

End.