Напишите программу...значение наименьшего числа...

Задание:

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

Количество введенных чисел не превышает 1000. Все числа не превышают 30000. Среди введенных чисел есть хотя бы одно четное

Программа должна вывести одно число: наименьшее  из всех четных введенных чисел.

Пример работы программы:

Входные данные: 10, 7, 12, 0.

Выходные данные: 10.

Решение:

Код программы на Паскале (Способ 1):

Program nomer3;
Var a, min: integer;
Begin
Write('Vvedite a: '); readln(a);
Min:=30000;
While a<>0 do
  begin
  if (a mod 2 =0) and (a<min) then min:=a;
  Write('Vvedite a: '); readln(a);
  end;
Writeln(min);
End. 

Код программы на Паскале (Способ 2):

Program nomer3;
Var a, min: integer;
Begin
Min:=30000;
Repeat
  Write('Vvedite a: '); readln(a);
  if (a<>0) and (a mod 2 =0) and (a<min) then min:=a
Until a=0;
Writeln(min);
End.