const n=100;
Var
i:integer;
A:array[1..n] of integer;
BEGIN
for i:=1 to n do
if (i mod 3=0) then
A[i]:=5;
END.
