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

Австрия - Вена Бельгия - Брюссель Венгрия - Будапешт Германия - Берлин Дания - Копенгаген

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