function maximum(a:integer, b:integer)
begin
    if (a > b)
        maximum := a;
    else
        maximum := b;
end;