Необходимо написать программку, которая инспектирует состоит ли трёхзначное число из схожих

Var

n:integer;

begin

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

readln (n);

if (n mod 10 = n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет');

end.

var

a:integer;

a1, a2, a3:byte;

begin

read(a);

a3:=a mod 10;

a2:=a div 10 mod 10;

a1:=a div 100;

if (a1=a2) and (a2=a3) then

write(a);