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

 var   a,min : integer;    begin  a := 5;  min := 1000;    While a <> 0 do   begin    readln (a);    if (a mod 10 =7) and (a < min ) then     min := a;   end;     writeln (min); end.