Даны два массива: А(10) и В(10). Сформируйте массив С(10), предварительно определив его длину, включая из массивов А и В только четные по номеру элементы. Вы ведите на экран массивы А(10), В(10) и С(10).

var   i:integer;   a,b,c:array[1..10]   of integer; begin writeln('Массив A:'); for i:=1 to 10 do   begin   a[i]:=random(10);   if i mod 2=0 then c[i-1]:=a[i];   write(a[i],' ');   end; writeln; writeln('Массив B:'); for i:=1 to 10 do   begin   b[i]:=random(10);   if i mod 2=0 then c[i]:=b[i];   write(b[i],' ');   end; writeln; writeln('Массив C:'); for i:=1 to 10 do   write(c[i],' '); end.