Пожалуйста помогите решить задачки на Turbo Pascal

1.2 Даны три целых числа A,B,C.Если минимум для A и B больше, чем минимум для A и C,то присвоить
переменной T значение 0,иначе - значение 1.Вывести на экран значение T
1.33 Даны три целых числа A,B,C.Если все модули разностей этих чисел меньге заданного числа K
то вывести на экран сообщение "Да",иначе - сообщение "Нет"
1.22 Даны три целых числа A,B,C.Вывести на экран произведение двух наибольших чисел или сообщение
"Нет",если два максимальных числа равны