Bài toán cổ

Lập trình giải bài toán cổ:
       Vừa gà vừa chó
       Bó lại cho tròn
       36 con, 100 chân chẵn.
Hỏi có mấy gà, mấy chó? Có bao nhiêu lời giải?
                                                                 Giải
Program B114ga_cho;
Uses crt;
Var
   g,c:integer;
   dem:integer;
BEGIN
   ClrScr;
   Dem:=0;
   For g:=1 to 36 do
       For c:=1 to 25 do
           If (g + c = 36) And (g * 2 + c * 4 = 100) Then
               begin
                   writeln('Co ',g,'(con ga) va ',c,'(con cho)');
                   dem:=dem+1;
               end;
   Writeln('=> Vay bai toan co ',dem,'(cach giai)');
   Readln;
END.