Informatika (2 семестр) / 1 аттестация / пересдача

 program massiv;
 var i,j, A,B,N: integer;

 a: array [1..5] of integer;
     b: array [1..4] of integer;

 begin
 N:=2;
 a[1]:=1;
 a[2]:=2;
 a[3] :=45;
  a[4] :=56;
 a[5] :=-8;
 b[1]:=1;
 b[2]:=2;
 b[3] :=-5;
  b[4] :=56;



 for i:=1 to 5 do
     begin
         write(',',a[i])
             end;

   writeln()  ;
 for j:=1 to 4 do
     begin
         write(',',b[j])
             end;

        writeln()  ;
        write (a[N]);
        write (b[N]);
 end.