2) Если 1-ое число больше второго, то добавить 2, а в

var a,b:integer;

begin

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

readln (a);

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

readln (b);

if agt;b then WriteLn(a,'gt;',b,' ',a,' + 2 = ',a+2,' ',b,' + 2 = ',b+2)

else WriteLn(a,'lt;',b,' ',a,' * 3 = ',a*3,' ',b,' * 3 = ',b*3)

end.

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