Ответ такой адрес сайта:
БГЖВАДЕ
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№1</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
if s[1] = a then Print('Да')
else Print('Нет')
end.
<h2>№2</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
s.Where(c->c=a).Count.Println
end.
Радио
принтер
монитор
наушники
дрон