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

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

var
number, newNumber, ones, hundreds, thousands: integer;
begin
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.