Program z2 var array of integer var integer Begin for to do readln for

 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.