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