Informatica

Program Africa;
uses wincrt;
var P: string;
begin
writeln('este programa muestra las capitales de Africa dependiendo de su eleccion');
writeln('');
writeln('introduzca el pais: ');writeln('');
if P='Angola' then
writeln('Luanda')
else
if P='Argelia' then
writeln('Argel');
else
if P='Benin' then
writeln('Porto-Novo')
else
if P='Botswana' then
writeln('Gaborone')
else
ifP='Burkina Faso' then
writeln('Uagadugú')
else
if P='Camerún' then
writeln('Yaundé')
else
if P='Cabo Verde' then
writeln('Praia')
else
if P='Republica Centroafricana' then
writeln('Bangui')else
if P='Chad' then
writeln('Yamena')
else
if P='Camoras' then
writeln('Moroni')
else
if P='Costa de Marfil' then
writeln('Yamusukro Abiyán')
else
if P='Reublica democratica del Congo' thenwriteln('Kinshasa')
else
if P='Yibuti' then
writeln('Yibuti')
else
if P='Egipto' then
writeln('El Cairo')
else
if P='Guinea Ecuatorial' then
writeln('Malabo')
else
if P='Eritrea' thenwriteln('Asmara')
else
if P='Etiopia' then
writeln('Adis Abeba')
else
if P='Gabon' then
writeln('Libreville')
else
if P='Gambia' then
writeln('Banjul')
else
if P='Ghana' thenwriteln('Accra')
else
if P='Guinea' then
writeln('Conakry')
else
if P='Guinea-Bissau' then
writeln('Bissau')
else if P='Kenia' then
writeln('Nairobi')
else
if P='Lesoto' then
writeln('Maseru')
elseif P='Liberia' then
writeln('Monrovia')
else
if P='Libia then
writeln('Tripoli')
else
if P='Madagascar' then
writeln('Antananarivo')
else
if P='Malaui' then
writeln('Lilongue')
else
ifP='Mali' then
writeln('Bakamo')
else
if P='Mauritania' then
writeln('Naukchot')
else
if P='Mauricio' then
writeln('Port Louis')
else
if P='Mayotte' then
writeln('Mamoudzou')
else
ifP='Marruecos' then
writeln('Rabat')
else
if P='Mazambique' then
writeln('Maputo')
else
if P='Namibia' then
writeln('Windhoek')
else
if P='Niger' then
writeln('Niamey')
else
if P='Nigeria' then...