Nahodit minimum dvuh velichin.
Source position: line 0
function Min(
A: Integer;
B: Integer
):Integer;function Min(
A: Single;
B: Single
):Single;