Составить программу,которая находит среднее арифметическое трёх чисел

Redln(a.b.c); writeln('сумма: ',a+b+c); writeln('произведение: ',a*b*c); writeln('среднее: ',(a+b+c)/3);