Найти все двухзначные числа, кратные 7, не используя оператор if

var
  i, kor, koz, ov: integer;

begin
  for i := 1 to 40 do
  begin
    koz := i;
    kor := 2 * koz;
    ov := 40 - (koz + kor);
    if ov < 0 then break;
    writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
  end
end.