function min(arr:array of integer):integer;
begin
Result:=arr.Min;
end;
Begin
var arr:=ReadArrInteger(ReadInteger('Введите количество элементов в массиве'));
Print(min(arr));
end.
