1)механические весы
2)компьютеры на транзисторах компьютер 6600 фирмы CDC
Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
Юра первое место
Боря второе место
Коля третье
Вова четвёртое место