Нужно написать программу, которая проверяет состоит ли трёхзначное число из одинаковых цифр ( например 555). И расписать в формуле эту цифру - 555.
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);
Var
n:integer;
write ('Введите трехзначное число: ');
readln (n);
if (n mod 10 = n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет');
end.