x:=25;
y:=5;
FOR I:= 1 to longitud DO
 begin
   x:=x-1;
   y:=y+1;
   gotoxy(x,y);
   FOR J:=1 to I DO
    write(caracter,' ')
 end;

write('Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: ');
readln(tipo);
tipo:=upcase(tipo)
writeln('');

case (tipo) of
  'N': begin
         duracionN:=duracionN+duracion;
         N:=N+1
       end;

  'P': begin
         duracionP:=duracionP+duracion;
         P:=P+1
       end;

  'L': begin
         duracionL:=duracionL+duracion;
         L:=L+1
       end
.
.
.

var
   tipo: char;

write('Introduzca el tipo de llamada. [N]acional, [P]rovincial, [L]ocal: ');
tipo:=upcase(readkey);

CASE tipo OF
"N": begin
       duracionN:=duracionN+duracion;
       N:=N+1
     end;
"P": begin
       duracionP:=duracionP+duracion;
       P:=P+1
     end;
"L": begin
       duracionL:=duracionL+duracion;
       L:=L+1
     end
else
      write('Opcion no permitida.');

END;

durac_total := duracionN + duracionP + duracionL;
numero := N + P + L;

while (duracion>0) do
 
        begin
          numero:=numero+1;
          duracion:=duracion+duracion;
        end;

.
.
.
durac_total:=0;
while (duracion>0) do
        begin
          durac_total:=durac_total + duración;
          numero:=numero+1;
          readln(duracion)
        end;
.
.
.

media:=durac_total/numero;