Untitled

program FindMinElement;
var
  arr: array[1..5] of integer;
  i, minElement: integer;
begin
  // Ввод массива с клавиатуры
  writeln('Введите 5 элементов массива:');
  for i := 1 to 5 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Нахождение минимального элемента
  minElement := arr[1];
  for i := 2 to 5 do
  begin
    if arr[i] < minElement then
      minElement := arr[i];
  end;

  // Вывод минимального элемента
  writeln('Минимальный элемент массива: ', minElement);
end.