Pascal/Delphi Cálculos de meias-vidas

[Jefferson Alan]

Program Pzim ;
Var
ma, g: real;
h, m, hora, s, seg, min: integer;
Begin
  hora:= 3600;
  min:= 60;
  seg:= 0;
  Writeln ('Digite o valor da massa em gramas: ');
  Readln (g);
  ma:= g;
  
  while g > 0.5 do
  Begin
    seg:= seg + 50;
    g:= g / 2;
  End;
  
  h:= seg mod hora;
  m:= seg mod min;
  
  while (m >= 60) do
  Begin
    h := h + 1;
    m:= m - 60;
    s:= seg div min;
  End;
  
  Writeln ('Massa inical: ', ma);
  writeln ('Massa final: ', g);
  writeln ('Tempo de: ', h, ' horas ', m,' minutos e ', s, ' segundos');
End.

Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada a massa
inicial, em gramas, fazer um algoritmo que determine o tempo necessário para que essa massa se torne
menor do que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado em horas, minutos e
segundos.

[Simon Viegas]

Olá. @Jefferson Alan, qual a sua dúvida?