Посмотрите объяснение на рис. (Ответ 2)
Ответ: 3 и 4.
Объяснение:
Кабель и канат информацию не передают
Var
max,min,x,y,z:integer;
begin
readln(x,y,z);
//Найдём максимум
if (x>y) AND (x>z) then
max:=x
else
if (y>x) AND (y>z) then
max:=y
else
max:=z;
//Найдём минимум
if (x<y) AND (x<z) then
min:=x
else
if (y<x) AND (y<z) then
min:=y
else
min:=z;
//Результат
if (x<>min) AND (x<>max) then
writeln(min,' ',x,' ',max)
else
if (y<>min) AND (y<>max) then
writeln(min,' ',y,' ',max)
else
writeln(min,' ',z,' ',max)
end.
Не уверен, верно ли, понял задание, так что тестируйте..
240 с
Типо 480 делим на два и получается ответ...