function CompareIntegers(a, b: Integer): Char;beginif a > b thenCompareIntegers := '>'else if a < b thenCompareIntegers := '<'elseCompareIntegers := '=';end;
function CompareIntegers(a, b: Integer): Char;
begin
if a > b then
CompareIntegers := '>'
else if a < b then
CompareIntegers := '<'
else
CompareIntegers := '=';
end;