Дано двузначное число. определить одинаковы ли его числа.(Язык Паскаль)

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

program IdenticalDigits;

var
number, firstDigit, secondDigit: integer;

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

firstDigit := number div 10; // extracting the first digit
secondDigit := number mod 10; // extracting the second digit

if firstDigit = secondDigit then
writeln('The digits of the number are identical.')
else
writeln('The digits of the number are different.');
end.