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