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

Там 5 версий, какую скачать? я не шарю

Полную, для первой установки

Var a,b,c:integer;BeginWrite('Введите трёхзначное число: ');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.