3. Даны числа X, Y, Z. найдите их среднее арифметическое.

program zz1;

var x, y, z:integer; / / задаем переменные целого типа

d:real; / / задаем переменную не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (z);

d: = (x + y + z) / 3; / / высчитываем среднее арифметическое

writeln (' среднее арифметическое трех введенных чисел = ', d); / / выводим ответ

end.