Дана строка. Определить является ли первый символ строки символом "А". (Идея программы: вводится строка S. Ответ "Да" выдается, если строка не пустая и ее первый символ равен "А")

Дана строка. Подсчитать количество символов "А" в строке. (Идея программы вводится строка S. Программа подсчитывает количество символов "А" согласно поставленному условию.)

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!№1

begin

 var s := ReadlnString;

 var a := ReadlnChar;

 if s[1] = a then Print('Да')

 else Print('Нет')

end.

№2

begin

 var s := ReadlnString;

 var a := ReadlnChar;

 s.Where(c->c=a).Count.Println

end.