practica 6 ejercicio 1, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;
{-------------------------------------------------------------------------------------------------}
procedure mainProcess;
var 
    pais,estado,ciudad:string;
    reg_estado,reg_pais:string;
    rec,rec_pais,rec_estado,rec_ciudad:real;
    habitantes,hprov,hpais:integer;
    
    
{----------------------------------------------------------------------------------}    
procedure estadof();

{-----------------------------------------------------------}
{--------------------------CIUDAD---------------------------}
procedure ciudadf();
begin
    readln(ciudad);                                   //3.. CIUDAD
    readln(habitantes);                              //4..HABITANTES
    readln(rec);                                      //5 .. RECAUDACION
    rec_estado:=rec+rec_estado;
    rec_ciudad:= rec / habitantes;
    writeln('el ingreso por habitante de la ciudad ',ciudad,' es ',rec_ciudad:9:2);
    hprov:= habitantes+hprov;
end;
{-----------------------------------------------------------}
{---------------------------ESTADO---------------------------}

begin
    readln(estado);                                   //2 .. ESTADO
    reg_estado:=estado;
    rec_estado:=0;
    while reg_estado = estado do begin
        hprov:=0;
        ciudadf();      //CALL
        readln(estado);                              //6 ..ESTADO
    end;                                                                                           
    rec_pais:=rec_estado+rec_pais;
    rec_estado:= rec_estado / hprov;                   
    writeln('el ingreso por habitante del estado ',reg_estado,' es ',rec_estado:9:2);
    hpais:=hpais+hprov;
end;
{----------------------------------------------------------------------------------}
{------------------------------------PAIS------------------------------------------}

begin
    readln(pais);                                        //  1.. PAIS
    while pais <> 'zzz' do begin
        reg_pais:=pais;
        rec_pais:=0;
        while pais = reg_pais do begin
            hpais:=0;
            estadof(); //CALL....
            readln(pais);                                  //7 .. PAIS
        end;
        rec_pais:= rec_pais / hpais;
        writeln('el ingreso por habitante del pais ',reg_pais,' es ',rec_pais:9:2);
    end;
end;
{-------------------------------------------------------------------------------------------------}

{PROGRAMA PRINCIPAL}
begin
    mainProcess;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.24 sec, absolute running time: 0.18 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,6 sec