Напишите программу, которая находит среднее из трёх введённых чисел. Предполагается, что все три числа различные.

Напишем программу, которая будет находить среднее из трёх введённых чисел:

program 2;

var x, y, z: integer;

begin

writeln ('Введите три различных между собой целых числа x, y и z');

readln (x, y, z);

if x > y and x < z then

writeln ('Среднее значение = ', x);

else

if x z then

writeln ('Среднее значение = ', x);

else

if y z then

writeln ('Среднее значение = ', y);

else

if y > x and y < z then

writeln ('Среднее значение = ', y);

else

if z y then

writeln ('Среднее значение = ', z);

else

if z > x and z < y then

writeln ('Среднее значение = ', z);

end.