Составить программу вывода наименьшего элемента массива, состоящего из 20 элементов из диапазона (100;300).

var a: array[1..20] of Integer;i,min: Integer;beginfor i:=1 to 20 dobeginreadln(a[i]);end;min:=a[1];for i:=1 to 20 dobeginif min>a[i] then min:=a[i];end;writeln(min);end.