Program Tinh_ga_cho;
Var ga,cho:integer;
Begin
  For ga:=1 to 36 do
   For cho:=1 to 36 do
    begin
     if (ga+cho=36) and (2*ga+4*cho=100) then
    begin 
         Writeln('So ga la',ga:3,' con va so cho la ',cho:3,' con');
      end;
    end;
Readln;
End.