Сосчитать для переменных X, Y и Z сумму, произведение, сумму квадратов и среднее арифметическое

program znanija;

begin

 var x := readinteger();

 var y := readinteger();

 var z := readinteger();

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

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

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));

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

end.

Функция sqr() возводит число в квадрат.

Среднее арифметическое = сумма чисел ÷ количество чисел

program znanija;  // Название программы

begin  // Начало программы

 var x := readinteger();  // Объявление переменной x и считывание целочисленного числа с клавиатуры

 var y := readinteger();  // Объявление переменной y и считывание целочисленного числа с клавиатуры

 var z := readinteger();  // Объявление переменной z и считывание целочисленного числа с клавиатуры

 writeln('Сумма = ', x + y + z);  // Вывод суммы

 writeln('Произведение = ', x * y * z);  // Вывод произведения

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));  // Вывод суммы квадратов

 writeln('Среднее арифметическое = ', (x + y + z) / 3);  // Вывод среднего арифметического

end. // Конец программы