Напишите программку, которая получает с клавиатуры трёхзначное число и записывает в

var

   a : integer;

   d : boolean;

begin

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

   readln(a);

   write('Правильно ли, что все числа введённого числа схожи? -- ');

   if a mod 10 and a div 10 mod 10 = a div 100 then d := true else d := false;

   if d then writeln('ДА') else writeln('НЕТ');

end.

program znanija;

var

answer: boolean;

a,b,c,d: integer;

begin

readln(a);

b := a mod 10;

c := a div 100;

d := a div 10 mod 10;

if (b=c) and (c=d) then

answer := true;

if answer = true then

writeln ('Да, правильно')

else

writeln ('Нет, не правильно');

end.