Массивы.

program lalala;
uses crt;
type al=array[1..100] of integer;
var mas1,mas2,mas3:al;
n1,n2,n3,i:integer;
 
   procedure vvod;
   begin
   randomize;
   write('Ââåäèòå êîë-âî ýë-òîâ â 1-ì ìàññèâå ');
   readln(n1);
   write('Ââåäèòå êîë-âî ýë-òîâ â 2-ì ìàññèâå ');
   readln(n2);
     for i:=1 to n1 do
     mas1[i]:=random(100);
     for i:=1 to n2 do
      mas2[i]:=random(100);
   end;
 
      procedure obrabotka;
      begin
      n3:=n1+n2;
       for i:=1 to n1 do begin
       mas3[i]:=mas1[i];
       end;
        for i:=n1+1 to n3 do begin
        mas3[i]:=mas2[i-n1]
        end;
      end;
      
       procedure vivod;
       begin
        gotoxy(10,1);
       writeln('Ìàññèâ 1');
        for i:=1 to n1 do begin
        gotoxy(i*4,2);
        write(mas1[i]);
        end;
       gotoxy(10,3);
       writeln('Ìàññèâ 2');
         for i:=1 to n2 do begin
         gotoxy(i*4,4);
         write(mas2[i]);
         end;
       gotoxy(10,5);
       writeln('Ïîëó÷åííûé ìàññèâ');
          for i:=1 to n3 do begin
          gotoxy(i*4,6);
          write(mas3[i]);
          end;
       end;
       
begin
vvod;
clrscr;
obrabotka;
vivod;
end.