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

//Pascal ABC.Net
Var a:array [1..4] of longint;
Begin
for i:=1 to 4 do
begin
read(a[i]);
if (a[i] mod 2=0) then a[i]*=3;
end;
for i:=1 to 4 do
write(a[i],' ');
End.