дано трёхзначное число. верно ли что оно состоит из одинаковых цифр. решите через паскаль.

program zz1;

var n, a, b, c:integer;

begin

write (' введите трехзначное число ');

read (n); / / вводим с клавиатуры число

a: = (n div 100) mod 10; / / находим первую цифру числа

b: = (n div 10) mod 10; / / находим вторую цифру числа

c:=n mod 10; / / находим третью цифру числа

if (a = b) and (b = c) / / проверяем условие, если цифры равны

then writeln (' заданное трехзначное число состоит из одинаковых цифр ') / / выводим ответы

else writeln (' заданное трехзначное число состоит не из одинаковых цифр ');

end.