Написать программу (и желательно блок схему) для : ввести 10 чисел, и вывести на экран наименьшее.

A:array[1..10] of integer;
i, min:integer;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.