Viết chương trình để tìm lời giải cho bài toán sau:
N trâu M bó cỏ
Bó lại cho tròn
Trâu đứng ăn năm
Trâu nằm ăn ba
Năm trâu nghé ăn một.
Hỏi có bao nhiêu trâu đứng, trâu nằm, trâu nghé?

(N,M được nhập tu bàn phím < free pascal);

program BuffaloProblem;

var
  N, M: integer;
  x, y, z: integer;
  found: boolean;

begin
  write('Nhap so luong trau N: ');
  readln(N);
  write('Nhap so luong bo co M: ');
  readln(M);

  found := False;

  for x := 0 to N do
  begin
    for y := 0 to N - x do
    begin
      z := N - x - y;
      if (5 * x + 3 * y + z = M) then
      begin
        writeln('So trau dung: ', x);
        writeln('So trau nam: ', y);
        writeln('So trau nghe: ', z);
        found := True;
        break;
      end;
    end;
    if found then
      break;
  end;

  if not found then
    writeln('Khong co nghiem phu hop');
end.

uses crt;
var n,m: integer;
x, y, z: integer;
ok:boolean;
begin
clrscr;
readln(n,m);
ok:=false;
for x :=0 to m div 5 do
begin
for y :=0 to m div 3 do
begin
for z := 0 to m do
begin
if (5*x+3*y+z=m) and ((x+y+z=n)) then
 begin
writeln('So trau dung: ', x);
writeln('So trau nam: ', y);
writeln('So trau nghe: ', z);
ok:=true
break;
end;
end;
if ok then
break;
end;
if okthen
break;
end;
readln;
end.