в Паскаль. ABC. Net. Задание:Пользователь вводит число n. Нужно составить массив, в котором записаны n первых четных чисел. Если пользователь ввел 4, то нужно составить массив, в котором числа 2 4 6 8​

program even_numb_in_the_array;

var i,j,n,m:integer;

a:array [1. . 10000] of integer;

k:real;

label 10;

begin

10: j:=0;

Writeln ('введите любое целое число число до 100');

Read (n);

for i:=1 to 10000 do

begin

a[i]:=i;

k:=i mod 2;

if k=0 then

begin

j:=j+1;

a[j]:=a[i];

end;

end;

for j:=1 to n do

Write (a[j],' ');

Writeln();

Writeln ('Будете работать с программой снова 1 - да, любая цифра - нет');

Read (m);

if m=1 then goto 10;

end.