Hola, se me pidio hacer este ejercicio: Suponga que desea saber que "perfil" tienen sus llamadas telefónicas. Para ello realizará un programa que solicite la duración de las llamadas y calcule:
 la duración total de sus llamadas
 el valor medio
 el número total de llamadas
 y los presente por pantalla.

hago el codigo pero no me pasa de leer la instruccion, les dejo el codigo a ver si ustedes me pueden ayudar, gracias

Program Llamada; 
Uses CRT;
Var Numero:real; 
D:Real; 
Media:Real; 
dtotal:Real; 
d1:real; 
Begin Clrscr; 
	Writeln('Duracion de llamada (0 para terminal): '); 
	Readln(d); 
	Dtotal:=0; 
	While (d>0) do Begin dtotal:=dtotal+d; 
		Numero:=numero + 1; 
		d1:=d + d;
	End; 
	Media:= dtotal/numero; 
	Writeln('Numero de llamadas: ', numero);
	Writeln('Duracion total: ',dtotal); 
	Writeln('Duracion media: ', media); 
	Readln;
End