uses crt;
var a:array[0..1000,0..1000] of longint;
    n,b:array[0..1000] of longint;
    i,j,t:longint;
procedure print();
var i:longint;
begin
    for i:=1 to t do write(b[i],' ');writeln;
end;
procedure Descartes(i:longint);
var j:longint;
begin
    if i>t then print();
    for j:=1 to n[i] do
        begin
            b[i]:=a[i,j];
            Descartes(i+1);
        end;
end;
begin
    clrscr;
    write('Nhap so mang: ');readln(t);
    for i:=1 to t do
        begin
            write('Nhap so phan tu cua mang ',chr(i+96),': ');
            read(n[i]);
            write('Nhap gia tri vao mang ',chr(i+96),': ');
            for j:=1 to n[i] do read(a[i,j]);
        end;
    writeln('Tich Descartes:');
    Descartes(1);
readkey;
end.

program Hello;
uses crt;
var n, i, j, max, t : longint;
    r, m: array[1..10000] of longint;
    a:array [1..10000, 1..10000] of longint;
procedure tinh(l: longint);
var i: longint;
begin
    if l > n then 
        begin
            write('(');
            for i:= 1 to n do
                if i < n then 
                    write(r[i], ', ')
                else 
                    write(r[i]);
            write(')');
            writeln;
        end
    else
        for i:= 1 to m[l] do
            begin
                r[l]:= a[l, i];
                tinh(l + 1);
            end;
end;
begin
    write('Nhap so luong mang: ');
    readln(n);
    for i:= 1 to n do 
        begin
            write('Nhap so phan tu mang thu ', i, ': ');
            readln(m[i]);
            write('Nhap phan tu mang ', i, ': ');
            for j:= 1 to m[i] do 
                read(a[i,j]);
        end;
    tinh(1);
readln;
end.