Помогите написать программу на паскале по этой задаче.
Ввести 3 числа,найти их сумму,произведение и среднее арифметическое.

var  a, b, c, p, sum, avg: real;begin  write('Введите 3 числа: ');  readln(a, b, c);  sum := a + b + c;  p := a * b * c;  avg := sum / 3;    writeln('Сумма =', sum:10, #13#10, 'Произведение =', p:10, #13#10, 'Ср. арифм. =', avg:10:2); end.