Паскаль задача

Среди трёх чисел найти среднее.если среди чисел есть равные, вывести сообщение "ошибка,,