Найти максимальное и минимальное из двух чисел (проверить, равны ли числа)

If a > b then writeln('a > b')
else
if a < b then writeln('a < b')
else
writeln('a = b');