Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ми­ни­маль­ное нечетное число, кратно­е 7. Про­грам­ма по­лу­ча­ет на вход целые числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 \(0 — признак окон­ча­ния ввода, не вхо­дит в последовательность\).   Про­грам­ма долж­на вы­ве­сти одно число — макси­маль­ное нечетное число, кратное 7.
В последовательности обязательно должно быть нечтное число кратное 7.

• var a, min: integer;
• begin
  Read\(a\); min := a;
• while a <> 0 do
  begin
• Read\(a\);
• if \(a \\lt min\) and \(a mod 2 \\lt \\gt 0\) and \(a mod 7 = 0\) then min := a;
• end;
• end.
• Write\(min\)