Из N целых чисел найти минимальное значение (программа Паскаль)

Question

Из N целых чисел найти минимальное значение

Answer 1

USES Crt;
VAR  MI, X: INTEGER;  I,N: BYTE;
BEGIN
  WriteLn('Введите количество значений');  ReadLn(n);
  WriteLn('Введите первое значение');  ReadLn(mi);
  FOR I:=2 TO N DO Begin
     WriteLn(‘Введите ‘,I,’ -е значение’);   ReadLn(x);
     IF X<MI Then MI:=X;
  End;
 WriteLn(‘Минимальное значение = ‘,MI);
END.