C. Путешествие по телепортам Алиса решила отправиться в путешествие в Далёкую галактику. Природа связала планеты этой галактики причудливой системой телепортов: на каждой планете есть ровно один телепорт, который ведёт на какую-то планету этой же галактики (возможно, на ту же самую планету). Алиса хочет провести свой отпуск, путешествуя по планетам Далёкой галактики: она хочет на межгалактическом лайнере добраться до одной из планет, а дальше перемещаться через телепорты Алисе выбрать, на какую планету отправиться на межгалактическом лайнере так, чтобы за своё путешествие посетить как можно больше различных планет. Алиса решила отправиться в путешествие в Далёкую галактику. Природа связала планеты этой галактики причудливой системой телепортов: на каждой планете есть ровно один телепорт, который ведёт на какую-то планету этой же галактики (возможно, на ту же самую планету). Алиса хочет провести свой отпуск, путешествуя по планетам Далёкой галактики: она хочет на межгалактическом лайнере добраться до одной из планет, а дальше перемещаться через телепорты Алисе выбрать, на какую планету отправиться на межгалактическом лайнере так, чтобы за своё путешествие посетить как можно больше различных планет.
Uses Crt;
var
a,c,b:integer;
begin
ClrScr;
repeat
writeln('INPUT 3-x znachoe');
readln(b);
until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
if a<c then
writeln(a,c)
else
writeln(c,a);
Readkey;
end.