Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Var   a: word;   b, c, d: byte; begin   readln(a);   b : = a mod 10;   c : = a div 10 mod 10;   d : = a div 100;   writeln(b, ' ', c, ' ', d);   if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then     writeln('yes, there are')   else     writeln('no, there aren"t'); end.

Иван: французский, китайский. антон: , японский. пётр: шведский, греческий. поясняю на сколько это возможно. 2) антон не знает шведский и французский. 3)пётр (он самый высокий - пункт 1) не знает французский. значит, французский - иван. 4) пётр не знает яп. и кит. 5) антон не знает кит. и греч. 4),5) => китайский - иван. с иваном 2),5) => антон не знает греческий и шведский (фр. и кит. уже у ивана). значит, их знает пётр. антону, в таком случае, достаются и японский. надеюсь, понятно.