Var  ar: array[1..10000]of integer;
  i, n, x: integer;
begin
  write(Введите N:);
  read(n);
  write(Введите X:);
  read(x);
    for i := 1 to n do
     begin
      ar[i] := x;
      x:=x+1;
      write(ar[i], );
    end;
end.