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.