даны 4 числа,найти наибольшее,если это число является четным увеличить его в 3 раза,иначе оставить без изменения

спасибо

//Pascal ABC.NetVar a:array [1..4] of longint;Beginfor i:=1 to 4 dobeginread(a[i]);if (a[i] mod 2=0) then a[i]*=3;end;for i:=1 to 4 dowrite(a[i],' ');End.