Pascal Нахождение минимального числа из введенных

[#Azamat]

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

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.

Автор: Неизвестен