В трехзначном натуральном числе заменить кол-во десятков на последнюю цифру в сумме сотен и единиц.(решение задач в Паскаль)

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

program ReplaceDigit;

var
num, units, tens, hundreds, newTens: integer;

begin
writeln('Введите трехзначное натуральное число:');
readln(num);

hundreds := num div 100;
tens := (num div 10) mod 10;
units := num mod 10;

newTens := (hundreds + units) mod 10;

writeln('Число после замены:', hundreds 100 + newTens 10 + units);
end.