Trăm trâu trăm cỏ

Lập trình giải bài toán cổ:
 Trăm trâu trăm cỏ
 Trâu đứng ăn năm
 Trâu nằm ăn ba
 Lụ khụ trâu già
 Ba con một bó.
 Hỏi có mấy trâu mỗi loại? Có bao nhiêu lời giải?
                                                                 Giải
Uses Crt;
Var
   d,n,g,dem: integer;
BEGIN
   ClrScr; Dem:=0;
   For d:= 1 to 20 do
       For n:=1 to 33 do
           For g:=1 to 100 do
               If (d + n + g = 100) And (d * 5 + n * 3 + g / 3 = 100) Then
                   begin
                       writeln('co ',d,'(trau dung) va ',n,'(trau nam) va ',g,'(trau gia)');
                       dem:=dem+1;
                   end;
   Writeln('=> co ',dem,'(cach giai)');
   Readln;
END.