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

a:array[1..10] of integer;i, min:integer;beginfor i:=1 to 10 doreadln(a[i]);min:=a[1];for i:=1 to 10 doif min>a[i] then min:=a[i];writeln(min);readln;end.