10 lines
291 B
ObjectPascal
10 lines
291 B
ObjectPascal
uses Исполнители;
|
||
|
||
begin
|
||
var С0 := Страны.Выбрать(страна -> страна.Континент = 'Азия');
|
||
var С1 := С0.ОтсортироватьПоУбыванию(страна -> страна.Население);
|
||
var С2 := С1.Взять(10);
|
||
var С3 := С2.Преобразовать(страна -> (страна.Название,страна.Население));
|
||
С3.ВывестиПострочно
|
||
end.
|
||
|