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

Var
x,y,z,mid:integer;
begin
Readln(x,y,z);
if (x > y) and (x > z) then
  if z > y then mid:=z
else mid:= y;
if (y > x) and (y > z) then
  if z > x then mid:=z
else mid:= x;
if (z > y) and (z > x) then
  if x > y then mid:=x
else mid:= y;
Writeln(mid);
end.

Пример:
4 6 47
6