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.

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