program PascalGuru;
uses crt;
 
type massiv=array[1..50] of integer;
 
var M,N,C: massiv;
    i,n1,n2,n3:integer;
 
begin
write('razmer M[n]= ');  readln(n1);
writeln('Vvedite elementy:');
for i:=1 to n1 do begin
write('M[',i,']= '); readln(M[i]); end;
clrscr;
 
n2:=0;n3:=0;
for i:=1 to n1 do
if odd(i) then begin inc(n2); N[n2]:=M[i];end
          else begin inc(n3); C[n3]:=M[i];end;
 
 
write('M: ');
for i:=1 to n1 do write(M[i],', ');
writeln; writeln;
write('C: ');
for i:=1 to n3 do write(C[i],', ');
writeln;writeln;
write('N: ');
for i:=1 to n2 do write(N[i],', ');
writeln;
 
 
readln;
end.