program HelloWorld;
var n:array [1..100] of integer;
var i: integer;
begin
for i:=1 to 100 do
n[i] := random(1000);
if n[i] mod 3 = 1 then writeln(n[i]);
end;
program HelloWorld;
var n:array [1..100] of integer;
var i: integer;
begin
for i:=1 to 100 do
n[i] := random(1000);
for i:=1 to 100 do
if n[i] mod 3 = 1 then writeln(n[i]);
end;