Тапочки

у меня в прихожей стоят в ряд 20 тапочек – 10 левых и 10 правых. приходя домой, я переобуваюсь и выбираю два тапочка – левый и правый, в которые мне удобнее всего засунуть ноги. естественно, что левый тапочек должен стоять левее правого, и расстояние (количество других тапочек) между ними должно быть как можно меньше. напишите программу, которая вычисляет, сколько же тапочек стоит между теми, которые мне удобнее всего надеть.

входные данные

вводится последовательность из 10 нулей и 10 единиц, записанных в некотором порядке. единица соответствует левому тапочку, 0 – правому тапочку. числа разделены пробелами.

выходные данные

программа должна вывести количество тапочек между самыми удобными тапочками, или -1, если таких нет.

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.

1)

var

i, n, a: integer;

begin

readln(n);

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 if a mod 10 = 4) and (a > 10) and (a < 100) then

   writeln(a);

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

end.

2)

var

i, n, a, z, min: integer;

begin

readln(n);

z:= 0;

for i:= 1 to n do

begin

 writeln('Введите число a: ');

 readln(a);

 z:= z + 1;

 if (i <> 0) and (z = 1) then

   min:= a;

 if (a < min) then min:= a;

 writeln('Введите кол-во чисел n: ');

 writeln('В данный момент n = ', n);

 readln(n);

 if n = 0 then break;

 end;

writeln(min)

end.