{* Поиск минимального элемента в массиве *}

Unit SAMPLE011;
Interface
Implementation
Begin
 writeln('Поиск минимального элемента в массиве');
End.

Program pas;

Uses sample011.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a   : Array[1..10] Of integer;
  min : integer;
  i   : integer;
Begin
  writeln('введите 10 элементов массива');
  min := MAXINT;
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
  Begin
    readln( a[i] );
    If min > a[i] Then
      min := a[i];
  End;
  writeln( 'Максимальный элемент массива = ', min );
End.