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

Спасибо)

пожалуйста)

var i,n,x:integer;a:array[1..100]of integer;begin  redln(n,x);  for i:= 1 to n do  a[i]:=x+i-1;  //дальнейшие операции с массивомend.