Program zadacha;
var a:array[1..1000] of integer;
i,x,min:integer;
begin
writeln('Введите кол-во чисел в последовательности:');
readln(x);
writeln('Введите числа:');
for i:=1 to x do readln(a[i]);
min:=30000;
for i:=1 to x do
if (a[i] mod 100 = 12)and (a[i]
writeln('Результат: ',min);
end.
