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

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.