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