Пожалуйста посчитайте задачу по информатике за 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