Найти максимальное и минимальное из двух чисел (проверить, равны ли числа)
из каких чисел?
If a > b then writeln('a > b') else if a < b then writeln('a < b') else writeln('a = b');