program FindMinimum;
var
numbers: array[1..10] of Integer;
i, minNum: Integer;
begin
// Заполняем массив случайными числами
Randomize;
for i := 1 to 10 do
begin
numbers[i] := Random(100); // Генерируем случайное число от 0 до 100
Write(numbers[i], ' ');
end;

// Находим минимальное число в массиве
minNum := numbers[1];
for i := 2 to 10 do
begin
if numbers[i] < minNum then
minNum := numbers[i];
end;

// Выводим результат
Writeln;
Write('Минимальное число: ', minNum);
end.