PROGRAM TST11(OUTPUT);
VAR X : ARRAY[1..5] OF INTEGER;
    I : INTEGER;
(*# L-,T-*)
BEGIN
I:=1;
WHILE I<7 DO
  BEGIN
  X[I]:=I*2;
  WRITELN(OUTPUT,X[I]);
  I:=I+1
  END;
END.