Даны n чисел.вывести на экран наименьшее число.

Var n,min,i:integer;a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
writeln(min);
end.