Напишите программу, которая получает с клавиатуры трёхзначное число и записывает в логическую переменную значение «да» (true), если это все его цифры одинаковы. после этого на экран выводится ответ на вопрос: «верно ли, что все цифры введённого числа одинаковы? ». паскаль! ) с логической переменной

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.

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 a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.