Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100] - PascalABC.NET

begin
  var all := 0;
  for var x := -100 to 100 do
    for var z := -100 to 100 do
      begin
        var y := 3*x+5*z-28;
        if not odd(y) and (y > -201) and (y < 201) then
          begin
            WriteLnFormat('x={0} y={1} z={2}', x, y div 2, z);
            all += 1;
          end;
      end;
  WriteLn('Всего решений: ', all);
end.