ввели трехзначное число, определить есть в нем повторяющиеся цифры. паскаль

program zz1;

var s, n, k, p:integer; / / задаем переменные целого типа

begin

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

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

k:=n mod 10; / /получаем последнюю цифру

s:=n div 100; / /получаем первую цифру

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

if (p = k) or (p = s) or (s = k) / / проверяем, если нашлись две одинаковые

then writeln (' Повторяющиеся цифры есть ') / / выводим один ответ

else writeln (' Повторяющихся цифр нету '); / / иначе, выводим другой ответ

end.