Составьте программу, определяющую минимальное из 10 случайных чисел.

var
i,n, min: :integer;
begin
randomize;
min:=999;
for i:=1 to 10 do
 begin
     n:= 1+ random(900);
if  n lt; min then  min := n;
    end;
Writeln (min=, min)
end.