Коментарии к строчкам

Var a,b:array[1..15] of integer; c:array[1..31] of integer; 
i:byte;
begin
randomize;
for i:=1 to 15 do
begin
a[i]:=random(10)+1;
Write('a[',i,']=',a[i],' ');
b[i]:=random(30)-20;
Write('b[',i,']=',b[i],' ');
end;
Writeln;
for i:=1 to 31 do
begin
if i mod 2<>0
then c[i]:=a[i]
else c[i]:=b[i];
Write('c[',i,']=',c[i],' ');
end;
readln;
end.

uses crt;
const n=15;
Var a,b,c:array[1..2*n] of integer;
    i:byte;
begin
randomize;
//создаем 2 массива
for i:=1 to n do
  begin
   a[i]:=random(10)+1;//первый заполняем числами от 1 до 10
   b[i]:=random(10)+10;//второй от 11 до 20
  end;
writeln('Массив A:');  //выводим на экран
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Массив B:');
for i:=1 to n do
write(b[i]:4);
writeln;
for i:=1 to 2*n do //создаем новый массив
if i mod 2<>0 then c[i]:=a[i div 2+1]//на нечетные места пишем элементы первого
//1 div 2+1=0+1=1, 3 div 2 +1=1+1=2..........
else c[i]:=b[i div 2];//на четные элементы второго 2 div 2=1, 4 div 2=2.....
writeln('Массив C:');
for i:=1 to 2*n do
write(c[i]:4);
readln;
end.