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

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