begin
  var d := Dict('бегемот'=>2,'попугай'=>3,'крокодил'=>1);
  Println(d);

  var Capital := Dict('Россия'=>'Москва','Франция'=>'Париж',
    'Италия'=>'Рим','Германия'=>'Берлин');
  Println(Capital['Италия'],Capital['Франция']);
end.