Пожалуйста посчитайте написать программу. Информатика 8 классЗадание:Дано трехзначное число, напишите программу, которая определяет:

Var a,b,c:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(A div 10) mod 10;
c:= A mod 10;
a:= A div 100;
if (a=b)or(b=c)or(c=a) then WriteLn('Да')
else WriteLn('Нет');
End.