Решите задачу по информатике за 7 класс ** Pascale, через Integer. Даны три числа нужно...

Question

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

Answer 1

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