PascalABC.NET

По этой ссылке я скинул модуль для паскаля и БД для этого задания.

https://yadi.sk/d/2V5Thm49UgcDhw

А вот это сам код:

uses Исполнители;

begin

 var name:string;

 Readln(name);

 foreach var страна in Страны do

   if страна.Название.НачинаетсяНа(name) then

   begin

     Вывести(страна);

   end;

end.