Bài toán thông minh

Bài 1: Lập trình giải  bài toán cổ sau: 

Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn

Uses crt;
var cho:byte;
BEGIN
clrscr;
for cho:=1 to 25 do
if 4*cho+(36-cho)*2=100 then
writeln('So ga la: ',36-cho,' so cho la: ',cho);
readln
END.

Bài 2. Trăm trâu trăm cỏ, Trâu đứng ăn năm, Trâu nằm ăn ba, Trâu già ba con một bó.  Hỏi có bao nhiêu con mỗi loại?

Program TRAMTRAU_TRAMCO;
USES crt;
VAR td,tn,tg:INTEGER;
BEGIN
Clrscr;
      Writeln('  TRAM TRAU TRAM CO:');
      Writeln('---------------------');
      Writeln('Trau dung Trau nam     Trau gia');
      FOR td:=0 TO 20  DO
      FOR tn:=0 TO 33  DO
      FOR tg:=0 TO 100 DO
      IF ((5*td+3*tn+tg/3=100) AND (td+tn+tg=100)) THEN
      Writeln(td:6, tn:12, tg:15);
      Readln;
END.

Bài 3. Nhập 3 loại tiền và số tiền cần đổi. Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập.

PROGRAM DOI_TIEN;
USES  Crt;
VAR x,y,z,n,i,j,h,s:LONGINT;

BEGIN
Clrscr;
    Writeln('CHUONG TRINH DOI TIEN:');
    Writeln('---------------------------------------');
    Write('Nhap so tien can doi n = ');readln(n);
    Write('Nhap loai tien thu 1: ');readln(x);
    Write('Nhap loai tien thu 2: ');readln(y);
    Write('Nhap loai tien thu 3: ');readln(z);
    Writeln('Loai ',x:6,' Loai ',y:6,' Loai ',z:6);
    FOR i:=0 TO (n DIV x) DO
    FOR j:=0 TO (n DIV y) DO
    FOR h:= 0 TO (n DIV z) DO
    IF (i*x+j*y+h*z=n) THEN
    Writeln (i:8,j:12,h:10);
    Readln;
END.