Плизз помогите составить программу паскаль:состоит ли двухзначное число из одинаковых цифр

Question

Плизз помогите составить программу паскаль:состоит ли двухзначное число из одинаковых цифр

Answer 1

Var x:integer;
begin
write('Введите двузначное число'); readln(x);
if (x mod 10) = (x div 10) then writeln('Число ',x,' состоит из одинаковых цифр') else writeln('Число ',x,' состоит из разных цифр');
end.