Вводится трёхразрядное целое число. Определить, какую из цифр необходимо убрать из этого числа, чтобы оставшиеся две(без перестановок) образовали наибольшее двухразрядное число. Напишите, пожалуйста, программу для
PascalABC

прости что переспрашиваю, но у меня показывает вот это case Max(w1*10+w2,w2*10+w3,w1*10+w3) of 1 : writeln('Íóæíî óáðàòü ',w3); 2 : writeln('Íóæíî óáðàòü ',w1); 3 : writeln('Íóæíî óáðàòü ',w2); end;это правильно, или это ошибка?

Задача решена на ABC Pascal