Спросить у пользователя три числа. Найти их средне арифметическое - Free Pascal

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

Спросить у пользователя три числа. Найти их средне арифметическое . Если одно число > второго и третьего, вычислить произведение трех чисел . Если одно число < второго и третьего, найти разницу между вторым и третьим. В остальных случаях найти сумму трех чисел. Я вот что то начала, но не уверенна что все верно.

                    Листинг программы
                
 
                        
                          
                    
Var
A, b, c : interger; 
Begin writeln ( "введите 3 целых числа"); 
Readln ( a, b, c);
If ( a>b),(a>c) then begin ( d:=a*b*c);
Writeln (d); end
Else if ( a<b) (a<c) then begin d:=b mod a;
Writeln (d); end 
Else if

Решение задачи: «Спросить у пользователя три числа. Найти их средне арифметическое»

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

var a, b, c: integer;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('c = '); readln(c);
  writeln('Average = ', (a + b + c) / 3);
  if (a > b) and (a > c)
    then writeln('a * b * c = ', a * b * c)
    else if (a < b) and (a < c)
      then writeln('b - c = ', b - c)
      else writeln('a + b + c = ', a + b + c);
  readln
end.

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

В начале кода объявляются три переменные типа integer с именами a, b и c.
Затем пользователю предлагается ввести значения для каждой из переменных.
После ввода значений, программа вычисляет средне арифметическое переменных a, b и c и выводит его на экран.
Далее программа проверяет, какое из чисел является наибольшим и соответственно наименьшим.
Если наибольшее число равно a, то вычисляется произведение a, b и c и выводится на экран.
Если наибольшее число равно b, то вычисляется разность между b и c и выводится на экран.
Если наибольшее число равно c, то вычисляется сумма a, b и c и выводится на экран.
В конце программы происходит чтение символа с помощью функции readln, чтобы программа не закрылась сразу после выполнения.