Pascal/Turbo Pascal - Un programa que solicite la duración de las llamadas, el valor medio y el número total de llamada

{A ver si esto ayuda }

program ejercicio_propuesto;

uses

   crt;

var

duracion:real;

llamad : integer;

tiemp : real;

begin

 llamad := 0;

duracion:=0.0;

tiemp := 0.0;

clrscr;

repeat

write('Duracion de la llamada (0 para terminar): ');

read(duracion);

if duracion > 0 then

begin

tiemp := tiemp + duracion;

llamad := llamad + 1;

end;

until duracion=0;

 writeln;

 writeln('  Numero Llamadas = ',llamad);

 writeln('  Duracion Total  = ',tiemp:0:2);

 writeln('  Duracion Media  = ',(tiemp / llamad):0:2);

 readkey;

end.

Program llamadaWhile;

var

 dullama:		integer; (*duracion de cada llamada*)

 dumediallama:   real;    (*la media entre la duracion de todas las llamadas*)

 dutotallama:	real;    (*duracion total de todas las llamadas*)

 numerollama:	integer;    (*numero de llamadas introducidas*)

begin

 (*Ponemos a cero los contadores y la media*)

 dutotallama := 0;

 numerollama := 0;

 dumediallama := 0;

 (*Solicitamos la duracion de la llamada*)

 writeln('Bienvenido/a al registro de llamadas');

 writeln;

 write('Introduzca la duracion de la llamada sin decimales');

 write(' (0 si desea finalizar):  ');

 readln (dullama);

 (*Evaluamos dullama, si la duracion es cero desde el principio,

   evidentemente el numero de llamadas tambien sera cero*)

 if (dullama = 0 ) then

   begin

    writeln;

    write('>Numero de llamadas: ',numerollama,'.' );

    write (' No hay mas resultados que mostrar');

    readln;

   end;

 (*Si la duracion de llamada es mayor a cero entonces se ejecuta el bucle

   iterativo While-Do, hasta que se introduzca la cifra cero*)

 while (dullama > 0) do

  begin

    dutotallama := dutotallama + dullama;(*Acumulamos las llamadas*)

    numerollama := numerollama + 1;       (*Contamos el numero de llamadas*)

    write ('Introduzca la duracion de la llamada sin decimales');

    write (' (0 si desea finalizar):  ');

    readln (dullama);

  (*Cuando se introduce la cifra cero pasamo a la siguiente sentencia*)

  if (dullama = 0) then

    begin

   (*Mostramos los datos que se encuentran en el contador y acumulador*)

     writeln ('> Numero de llamadas: ', numerollama);

     writeln ('> Duracion total: ', dutotallama :3:2);

  (*Declaramos la division para hacer la media*)

     dumediallama:= dutotallama/numerollama;

  (*Realizamos al operacion*)

     writeln ('> Media total: ', dumediallama:3:2);

     readln;

    end;

  end;

end.