uses Исполнители;

begin
  var СтраныНаБуквуА := Страны.Выбрать(страна -> страна.Название.НачинаетсяНа('А'));
  var количество := 0;
  foreach var страна in СтраныНаБуквуА do
  begin
    Вывести(страна);
    количество += 1;
  end;
  количество.Вывести
end.