Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.
Задача в Паскале. Нужен алгоритм.

Предыдущий
вопрос Следующий
вопрос

program RemoveTens;

var
num, newNum: integer;

begin
writeln('Enter a 4-digit number: ');
readln(num);

newNum := (num div 1000) 1000 + (num mod 100) mod 10 100 + (num mod 100) div 10 * 10 + num mod 10;

writeln('Number with removed tens: ', newNum);

end.