const
  size_of_nums = 10;
var
  i : integer;
  nums : array [0..size_of_nums-1] of integer;
begin
  i := 0;
  while i < size_of_nums do
    begin
      nums[i] := i * 2;
      i := i + 1
    end;
  i := 0;
  while i < size_of_nums do
    begin
      writeln('nums[',i,']=',nums[i]);
      i := i + 1
    end
end.