Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)

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

program RemoveSecondDigit;
var
number, newNumber: integer;
begin
write('Enter a four-digit number: ');
readln(number);
// Remove second digit
newNumber := number div 1000 * 1000 + number mod 100;
writeln('Number with second digit removed: ', newNumber);
end.