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

program CicleRepeat;uses crt; {для использования clrscr - очистки экрана}var mas: array[1..100] of integer;i,n,min: integer;beginclrscr; {очистка экрана. Необязательно использовать}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.