Форум Всеукраїнської інтернет-олімпіади NetOI

02 FAILED (Time Out) 1.01 сек.
03 FAILED (Time Out) 1.02 сек.
04 FAILED (Time Out) 1.02 сек.
05 FAILED (Time Out) 1.02 сек.
06 FAILED (Time Out) 1.02 сек.
07 FAILED (Time Out) 1.01 сек.
08 FAILED (Time Out) 1.02 сек.
09 FAILED (Time Out) 1.01 сек.
10 FAILED (Time Out) 7.02 сек.

Прошло тестов: 0 из 9.

Набрано баллов: 0 из 12.


Вот такой результат имеет мой код DEMO_C:

{$N+,B-}

var n,min,t:integer;
begin
     min:=1001;
     readln(n);
     
     repeat
        readln(t);
        if (t>0) and (t<min) then min:=t;
        Dec(n);
     until (min=1) or (n=0);
     
     {while n>0 do begin
    readln(t);
    Dec(n);
      end;}

     if min=1001 then min:=0;
     writeln(min);
end.

Ясно, что пробовал и без директив препроцессору... И скобки в комментарии убирать пробовал (для корректного завершения считывания).
И без использования факта, что меньше единицы положительных целых не бывает, результат такой же.

Предложите что-то получше или объясните, где я прокололся...