var a,b:integer;

begin

Write('Введите первое число: ');

readln (a);

Write('Введите второе число: ');

readln (b);

if a>b then WriteLn(a,'>',b,' ',a,' + 2 = ',a+2,' ',b,' + 2 = ',b+2)

else WriteLn(a,'<',b,' ',a,' * 3 = ',a*3,' ',b,' * 3 = ',b*3)

end.

Программа не учитывает ситуацию, когда числа равны.