1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Program z2; var a:array of integer[1..5]; var i:integer; Begin for i:=1 to 5 do readln(a[i]); for i:=1 to 5 do Begin if a[i] mod 3 = 0 then a[i] = a[i] * a[3]; End; for i:=1 to 5 do writeln(a[i]); readln; End.