13 lines
214 B
ObjectPascal
13 lines
214 B
ObjectPascal
uses Исполнители;
|
||
|
||
begin
|
||
var количество := 0;
|
||
foreach var страна in Страны do
|
||
if страна.Название[1] = 'А' then
|
||
begin
|
||
Вывести(страна);
|
||
количество += 1;
|
||
end;
|
||
количество.Вывести
|
||
end.
|
||
|