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

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