Podrías cambiar el repeat por un while y dejar el código de esta forma:
write('Duracion de la llamada (0 para terminar): ');
readln(Dur);
while(Dur<>0) do
write('Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : ');
read(Tipo);
if (Tipo = 'N') or (Tipo = 'n') then
BEGIN
N1 := N1+1;
Cont1 := Cont1+Dur
END;
if (Tipo = 'P') or (Tipo = 'p') then
BEGIN
P1 := P1+1;
Cont2 := Cont2+Dur
END;
if (Tipo = 'L') or (Tipo = 'l') then
BEGIN
L1 := L1+1;
Cont3 := Cont3+Dur
END;
Cont01 := Cont01+1;
Cont0 := Cont0+Dur;
RE := RE+Dur;
write('Duracion de la llamada (0 para terminar): ');
readln(Dur);
end.
Así conseguirías que si pones 0 no vuelva a preguntar lo de llamada provincial.......
Espero que te haya ayudado.
PD: No se si habré escrito correctamente lo del while, compruebalo tu mismo con el compilador porque hace ya un año que no uso Pascal xD
Saludos.
write('Duracion de la llamada (0 para terminar): ');
readln(Dur);
while(Dur<>0) do
write('Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local : ');
read(Tipo);
if (Tipo = 'N') or (Tipo = 'n') then
BEGIN
N1 := N1+1;
Cont1 := Cont1+Dur
END;
if (Tipo = 'P') or (Tipo = 'p') then
BEGIN
P1 := P1+1;
Cont2 := Cont2+Dur
END;
if (Tipo = 'L') or (Tipo = 'l') then
BEGIN
L1 := L1+1;
Cont3 := Cont3+Dur
END;
Cont01 := Cont01+1;
Cont0 := Cont0+Dur;
RE := RE+Dur;
write('Duracion de la llamada (0 para terminar): ');
readln(Dur);
end.
Así conseguirías que si pones 0 no vuelva a preguntar lo de llamada provincial.......
Espero que te haya ayudado.
PD: No se si habré escrito correctamente lo del while, compruebalo tu mismo con el compilador porque hace ya un año que no uso Pascal xD
Saludos.