11 lines
192 B
ObjectPascal
11 lines
192 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
Страны.ВывестиПострочно;
|
|
|
|
foreach var страна in Страны do
|
|
Вывести(страна);
|
|
|
|
Страны.ОтсортироватьПо(страна -> страна.Население).ВывестиПострочно
|
|
end.
|
|
|