Найти наибольшее значение среди трех величин: А, В, С (числа могут быть равны) - Pascal ABC

Формулировка задачи:

Доброго времени суток.Помогите пожалуйста,что нужно добавить в программу,чтобы в ней было заложено,что может быть и такое,что A=B=C и в конце,в данном случае вывелось не значение max числа,а "Все числа равны,решений нет" ? p.s. Если не трудно,то подправьте пожалуйста блок-схему. Большое спасибо!

Решение задачи: «Найти наибольшее значение среди трех величин: А, В, С (числа могут быть равны)»

Листинг программы

program bit2;
var a,b,c,max:integer;
begin
readln(a,b,c);
if(a=b)and(a=c) then write('Все числа равны, решения нет')
else
 begin
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  write(max)
 end;
end.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит следующее:

Создается программа под названием bit2.
Объявляются три переменные типа integer: a, b и c.
С помощью функции readln() считываются значения переменных a, b и c с консоли.
Проверяется условие: если значения переменных a, b и c равны, то выводится сообщение Все числа равны, решения нет.
Если условия из пункта 4 не выполняются, то:
- Если значение переменной a больше значения переменной b, то переменной max присваивается значение a.
- Если значение переменной b больше значения переменной max, то переменной max присваивается значение b.
- Если значение переменной c больше значения переменной max, то переменной max присваивается значение c.
Выводится значение переменной max. Таким образом, данный код находит наибольшее значение среди трех величин: А, В, С.