ввести два числа а и б. большее число заменить утроенным произведением , меньше полусуммой

var a,b:integer;begin writeln('a=');readln(a);writeln('b=');readln(b);if (a>b) then  begin b:=(a+b)/2;a:=3*(a*b); endelse begin a:=(a+b)/2;b:=3*(a*b);end;writeln('a=',a, ' b=', b);readln;end.