Решите задачу по информатике за 7 класс на Pascale, через Integer.
Даны три числа нужно вывести среднее при этом они не могут быть одинаковыми.
Например: 6, 10, 3 вывести 6.
Например: 13, 5, 11 вывести 11.

varx,y,z,mid:integer;beginReadln(x,y,z);if (x > y) and (x > z) then  if z > y then mid:=zelse mid:= y;if (y > x) and (y > z) then  if z > x then mid:=zelse mid:= x;if (z > y) and (z > x) then  if x > y then mid:=xelse mid:= y;Writeln(mid);end.Пример:4 6 476