Viết chương trình cho bài toán sau: Vừa gà vừa chó Bỏ lại cho tròn 36 con 100 chân chẵn Hỏi mấy gà? mấy chó?

program sochovasoga;
var x, y: Integer;
begin
  for x := 1 to 35 do
  begin
    y := 36 - x;
    if (2*x + 4*y = 100) then
    begin
      writeln('So luong ga la: ', x);
      writeln('So luong cho la: ', y);
      break; 
    end;
  end;
end.

-----
Màn hình kết quả sẽ in:

So luong ga la: 22
So luong cho la: 14