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)</p>
end.
Программа не учитывает ситуацию, когда числа равны.