Надо решить следующую задачу: Найти минимальное число из 10 случайных чисел. Диапазон генерации случайного числа задается пользователем в начале работы программы. (использовать форматированный ввод/вывод)
Var a,k.b:integer; begin b:=10000000; for k:=1 to 10 do begin read(a); if awrite(b); end.