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

Pascalvar max:integer;var a:array[1..4] of integer;beginmax:=-100000000;for var i:=1 to 4 doreadln(A[i]);for var i:=1 to 4 doif (a[i] > max) thenmax:=a[i];If (max mod 2 =0) thenmax:=max*3;write(max);end.