Заполнить массив А первыми Н натуральными числами, начиная сХ(ввести Х с клавиатуры) 

type mas=array[1..1000] of integer;var   a:mas;   i,h,x,k:integer;begin   readln(h,x);   k:=0;   for i:=x to h+x do      begin         read(i);         k:=k+1;         a[k]:=i;      end;   for i:=1 to k do      write(a[i], ' ');end.На всякий случай написала вывод массива