program BiBo212;
uses crt;
var x,y,z:integer;
begin
        clrscr;
       // For x:=0 to 36 do
        {For y:=0 to 36-x do
        if (x+y=36)and (2*x+4*y=100) then
                                   begin
                                        writeln('So ga la: ',x);
                                        writeln('So cho la: ',y);
                                   end;}
        //Bai trau
                For x:=0 to 100 do
                For y:=0 to 100 do
                For z:=0 to 100 do
                if (x+y+z=100)and(5*x+3*y+z/3=100) then
                                begin
                                        writeln('Trau dung : ',x);
                                        writeln('Trau nam : ',y);
                                        writeln('Trau gia: ',z);
                                        writeln;
                                end;

        readln;
end.

uses crt;
var c,g : integer;
begin clrscr;
for c:=1 to 36 do
for g:=1 to 36 do
if (g+c=36) and (g*2+c*4=100) then begin
write('So ga la :',g);  writeln;
write('So cho la :', c); end;
readln
end.

uses crt;
var t1,t2,t3 : integer;
begin clrscr;
for t1:=1 to 100 do
for t2:=1 to 100 do
for t3:=1 to 100 do
if (t1+t2+t3=100) and (t1*5+t2*3+t3/3=100) then
writeln('Trau dung la :',t1,'trau nam la :', t2, 'trau gia la :', t3);
readln
end.