program Comparison;
var
N, i, num, min:integer;
begin
write('Введите количество чисел: ');
readln(N);
write('Введите число: ');
readln(num);
min:=num;
for i:= 1 to (N-1) do
begin
readln(num);
if (num
end;
writeln('Минимальное число в последовательности: ',min);
end.