Programación

-Programa de aerolinea.
PROGRAM PARAISO;
USES
crt;
VAR
nom, origen, destino: string;
sexo, nac, linea:char;
n,c,edad, no_pas, no_vuelo:integer;
hora, costo: real;
civa, cdua,boleto,dua : real;
op, cm, cp: integer;
ace, abol, adua, aboletos: real;
BEGIN
clrscr;
c:=0; cm:=0; cp:=0; ace:=0; abol:=0;
adua:=0; aboletos:=0;
writeln('cuantos pasajeros desea capturar?');readln(n);
while c
begin
clrscr;
writeln('cu l es el nombre del pasajero');
readln(nom);
writeln('sexo m=masculino f=femenino');
readln(sexo);
writeln('cu l es su edad');
readln(edad);writeln('cu l es su numero de pasaporte');
readln(no_pas);
writeln('cu l es su nacionalidad, sˇ es de Mexico=M, EUA=E, Canadiense=C, otra=O');
readln(nac);
writeln('cu l es el origen delpasajero');
readln(origen);
writeln('cu l es su destino');
readln(destino);
writeln('cu l es la hora del vuelo');
readln(hora);
writeln('numero del vuelo');
readln(no_vuelo);
writeln('lˇneaaerea: A=Aeromexico, X=Mexicana, H=Aeromar, T=Otra');
readln(linea);
writeln('costo del boleto sin impuesto');
readln(costo);
civa:=costo*0.15;
cdua:=costo*0.05;
boleto:=costo+civa+cdua;writeln('el costo del boleto del pasajero ', nom, ' es ' , boleto:8:2);
if nac='m' then
cm:=cm+1
else ace:=ace+costo;
if edad>20 then
abol:=abol+boleto
else cp:=cp+1;
if dua>300.00 thenadua:=adua+dua;
aboletos:=aboletos+boleto;
c:=c+1;
readln;
end;
writeln('el nŁmero de mexicanoss que viajaron fueron ', cm);
writeln;
writeln('el monto sin impuestos de boletos vendidos aextranjeros es ',ace:8:2);
writeln;
writeln('el monto con impuestos de boletos vendidos a mayores de 20 ańos es ',abol:8:2);
writeln;
writeln('el numero de pasajeros de 20 a¤os o menos son',cp);
writeln;
writeln('la suma de los duas mayores a $300.00 es ',adua:8:2);
writeln;
writeln('el total de todos los boletos vendidos ya con impuestos es ',aboletos:8:2);
readln;
END.