begin writeln′Enteratwo−digitnumber:′'Enter a two-digit number: '′Enteratwo−digitnumber:′; readlnnumbernumbernumber;
firstDigit := number div 10; // extracting the first digit secondDigit := number mod 10; // extracting the second digit
if firstDigit = secondDigit then writeln′Thedigitsofthenumberareidentical.′'The digits of the number are identical.'′Thedigitsofthenumberareidentical.′
else writeln′Thedigitsofthenumberaredifferent.′'The digits of the number are different.'′Thedigitsofthenumberaredifferent.′; end.
program IdenticalDigits;
var
number, firstDigit, secondDigit: integer;
begin
writeln′Enteratwo−digitnumber:′'Enter a two-digit number: '′Enteratwo−digitnumber:′;
readlnnumbernumbernumber;
firstDigit := number div 10; // extracting the first digit
secondDigit := number mod 10; // extracting the second digit
if firstDigit = secondDigit then
writeln′Thedigitsofthenumberareidentical.′'The digits of the number are identical.'′Thedigitsofthenumberareidentical.′ else
writeln′Thedigitsofthenumberaredifferent.′'The digits of the number are different.'′Thedigitsofthenumberaredifferent.′;
end.