10.txt

来自「pl0」· 文本 代码 · 共 8 行

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.