program qq;
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.
