Ввести три числа, найти их сумму, произведение и среднее арифметическое

Пример

Введите три числа

4 5 7

4+5+7=16

4*5*7=140

(4+5+7) : 3=5.333333

Var

x, y, k: real;

begin

write ('Введите 3 числа = ');

readln (x, y, k);

writeln ('Сумма = ', x + y + k);

writeln ('Произведение = ', x * y * k);

writeln ('Ср. арифметическое = ', (x + y + k) / 3);

end.