5. нахождение минимального числа из введенных. program min; var a, i : integer; min : integer; begin min: =32767; for i: =1 to 10 do begin write('vvedi chislo '); readln(a); if a < min then min: =a; end; writeln('min=',min); readln; end. простая программа демонстрирует цикл со счетчиком, и работу условных операторов. в начале анализа в качестве минимального задано максимально возможное из целых положительных целочисленного типа.