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

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

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