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

program zz1;
var a, n, i, min:integer; // задаем переменные целого типа
begin
write(' введите n '); // вводим с клавиатуры чисел в исходной последовательности
read(n);
min:=100000; // задаем начальное значение для минимального числа
for i:=1 to n do
begin
read(a); // вводим очередное число последовательности
if a < min then min:=a; // проверяем, если введенное число больше минимального, то записываем его в минимальное
end;
write(' минимальное число = ', min); // выводим ответ
end.