Задание 3. Только чётные! Напишите программу, которая заполняет массив из N элементов...

Question

Задание 3. Только чётные!

Напишите программу, которая заполняет массив из N элементов целыми четными числами. Гарантируется, что 0 < N ≤ 10000 .

Формат ввода

Входная строка содержит 2 числа N - количество элементов, А - начальное значение

Формат вывода

Программа должна вывести N элементов построенного массива, начиная с A, если А - четное и с А + 1, если А - нечетное, разделенных пробелами

Пример 1

Ввод

5 4

Вывод

4 6 8 10 12



Пример 2

Ввод

5 5

6 8 10 12 14
пожалуйста

Answer 1

Var
A,N:integer;
M:array[1..10001] of integer;
Begin
ReadLn(N,A);
if A mod 2<>0 then A:=A+1;
For N:= 1 to N do
    Begin
    M[N]:=A;
    A:=A+2;
    Write(M[N],' ')
    End;
End.