PROGRAM TST10(OUTPUT);
VAR X : ARRAY[1..10] OF INTEGER;
    I : INTEGER;
BEGIN
I:=1;
WHILE I<12 DO
  BEGIN
  X[I]:=I*2;
  WRITELN(OUTPUT,X[I]);
  I:=I+1
  END;
END.