program Euler_feladata;
uses Crt,Rutin;
const
  { az  llatok  ra }
  sertes=3.5;
  kecske=4/3;
  juh=0.5;
  { a rendelkez‚sre  ll˘ p‚nz }
  penz=100;
  { a v s rland˘  llatok sz ma ”sszesen }
  ossz=100;
var
  { melyikb“l h ny kell }
  x,y,z : integer;
begin
  ClrScr;
  WriteXY(25,1,'E U L E R    F E L A D A T A');
  WriteXY(27,10,'sert‚sb“l kecsk‚b“l juhb˘l'); WriteLn; WriteLn;
  { egym sba  gyazott ciklusok a megold s keres‚s‚re }
  for x:=1 to ossz do
   for y:=1 to ossz-x do
    begin
      { a harmadikat m r tudjuk }
      z:=ossz-x-y;
      { ha az  r egyenl“ a p‚nzzel, akkor kiˇrjuk a megold st }
      if Abs(x*sertes+y*kecske+z*juh-penz)<1E-9 then WriteLn(x:30,y:10,z:10);
    end;
  WriteLn; WriteLn('darabot kell venni':50);
  WriteXY(45,25,'B rmi kil‚p...');
  repeat until KeyPressed;
end.