Нужно написать 5 европейских государств в алфавитном порядке и указать столицу каждого государства. помогите плизззз)

Австрия - Вена

Бельгия - Брюссель

Венгрия - Будапешт

Германия - Берлин

Дания - Копенгаген

program capital;
begin
  writeln ('******************************');
  writeln ('*  Европейские государства   *');
  writeln ('******************************');
  writeln ('*    Страна    *   Столица   *');
  writeln ('******************************');
  writeln ('*    Албания   *  Тирана     *');
  writeln ('*    Болгария  *  София      *');
  writeln ('*    Ватикан   *  Ватикан    *');
  writeln ('*    Греция    *  Афины      *');
  writeln ('*    Дания     *  Копенгаген *');
  writeln ('******************************');
end.