Помогите срочно!!
Заполнить массив A первыми N натуральными числами, ничиная с X (ввести X с клавиатуры)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)var a:array[0..100] of integer;  i,x, n: integer;begin  write('Введите значения x,n : ');  readln(x,n);  for i:=0 to n do begin    a[i]:=x+i; write(a[i],' ');  end;end.Тестовое решение:Введите значения x, n : 5 105 6 7 8 9 10 11 12 13 14 15

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var n:=ReadInteger('n=');  var x:=ReadInteger('x=');  var a:=x.Step.Take(n).ToArray; a.Printlnend.Тестовое решение:n= 15x= 2727 28 29 30 31 32 33 34 35 36 37 38 39 40 41