program bt;

var

          ga,cho:integer;

begin

          for ga:=1 to 35 do  

          begin

                   cho:=36 - ga;

                   if ga*2+cho*4=100 then writeln('So cho la: ',cho,'; so ga la: ',ga);

          end;

          readln;

end.

#Đay_la_thuat_de_giai_bai_toan_tren

#Co_gi_khong_hieu_ban_hoi_lai_minh_nhe

#Chuc_ban_hoc_tot

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;
Readln;
End.