Написать программу, определяющую состоит ли трехзначное число…

Varn: integer; beginwrite ('Введите трехзначное число: '); readln (n); if (n mod 10=n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет'); end.