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

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

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

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

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

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

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