program CicleRepeat;
uses crt; {для использования clrscr - очистки экрана}
var mas: array[1..100] of integer;
i,n,min: integer;
begin
clrscr; {очистка экрана. Необязательно использовать}
writeln('Kol-vo elementov v massive?');
readln(n);
min:=0;
  repeat
   for i:=1 to n do
     write(mas[i]);
     readln(mas[i]);
    if mas[i]<min
      then min:=mas[i];
    writeln('naimenshee chislo ', min);
     until mas[i]=0;
end.