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.