У гусей и кроликов 64 лапы. Сколько могло быть кроликов и гусей — Pascal(Паскаль)

var
  a, b, f, i: integer;
  n := 64;
  k := 4;
  g := 2;
 
begin
  f := n div k - 1;
  for i := 1 to f do
  begin
    a := i;
    b := (n - k * a) div g;
    writeln(a, ' Кролик(ов) ', b, ' Гусь(ей)');
  end;
end.