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.