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