Дано четырехзначное число. Изменить его так чтобы количество десятков стало равно нулю (написать программу паскаль)

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

va
number, newNumber, ones, hundreds, thousands: integer
begi
write('Введите четырехзначное число: ')
readln(number);

// Вычисляем количество единиц, десятков, сотен и тыся
ones := number mod 10
hundreds := (number div 100) mod 10
thousands := (number div 1000) mod 10;

// Формируем новое число с нулевым количеством десятко
newNumber := thousands 1000 + hundreds 100 + ones;

writeln('Новое число: ', newNumber)
end.