Cách giải nó như sau:

Gọi x là số gà
Số chó là: 36 – x
Số chân gà: 2x
Số chân chó: 4(36-x)
theo đề bài ta có:
2x + 4(36 – x) =100
2x + 144 – 4x = 100
2x = 144 – 100
2x = 44
x = 22
Vậy số gà là 22 con
Số chó : 36 – 22 = 14
—
Bạn bảo mấy con chó đặt 2 chân trước lên ghế,tổng số chân dưới đất sẽ là 36 x 2  = 72 chân. Suy ra số chân trên ghế là 28 chân.
Vậy có 14 con chó ….
—
Dùng hệ phương trình
Gọi x là gà, y là chó
Ta có hệ pt:
x + y = 36
2x + 4y = 100
Giải hệ pt
x = 22,y = 14
Vậy gà có 22 con, chó có 14 con. 

Vì 1 con gà có 2 chân, một con chó có 4 chân.

Giả sử 36 con đều là gà thì tổng số chân gà là: 2 x36 =72 (chân)

Như vậy số chân thừa ra là: 100-72=28(chân)

Số chân mỗi con chó hơn số chân mõi con gà là:4-2=2(chân)

Số con chó là:28:2=14( con)

Số con gà là:36-14=22(con)

Đáp số: 14 con chó ; 22con gà.

program HelloWorld;
var i :Integer;
begin  
  writeln('Giai bai toan dan gian bang Pascal');
writeln('Vua ga vua cho');
writeln('Bo lai cho tron');
writeln('Ba muoi sau(36) con');
writeln('Mot tram(100) chan chan');
writeln('Hoi may ga, may cho?');
for i:= 9 to 25 do
if((i * 2 + (36 - i) * 4) = 100) then
writeln('So ga la: ', i);
writeln('So cho la: ', 36 - i);
end.

program bai toan co ;
var ga ,cho :byte;
Begin
for cho:=1 to 24 do
begin ga:=36-cho
if(2*ga+4*cho=100)then writeln
('ga : '  ,ga ',cho:  ' ,cho );
end;
readln;
End.

14 chó 22 gà
nghỉ hè lú hết r

viết chương trình để tính chứ ko phải giải bài đâu bạn

Program Tinh_ga_cho;
Var ga,cho:byte;
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');
    exit;
      end;
    end;
Readln;
End.   

Program Tinh_ga_cho;
Var ga,cho:byte;
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');
    exit;
      end;
    end;
Readln;
End.