Bài toán gà chó bằng Pascal

bai-toan-ga-cho.pas

program gaCho;

uses
  crt;

var
  chanGa, chanCho, soGa, soCho, i: integer;
begin
  clrscr;
  soCho := 0;
  chanCho := 0;
  chanGa := 0;
  for i := 36 downto 0 do
  begin
    chanGa := i * 2;
    chanCho := soCho * 4;
    if chanGa + chanCho = 100 then
      break
    else
      soCho := soCho + 1;
  end;
  writeln('So Ga: ', i, ' - So cho: ', soCho);
  readln;
end.