10.txt

pl0

var i,a[i];
begin 
  for i:=1 to 100 do
    a[i]:= 2 * i;
  for i:=1 to 30 do
    writeln(a[3*i]);
end.