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