Напишите программу, которая в последовательности чисел определяет минимальное число.

uses crt;var a: array[1..10000] of Integer;      n, i, min: Integer;Begin  readln(n);  for i := 1 to n do read(a[i]);  min := a[1];  for i := 2 to n do     if a[i] < min then min := a[i];  writeln(min);End.