5,000 mensajes, marcoszorrilla

[Migpal]

Algoritmo para saber cuanto ha invertido Marcos

var
  mensajes:integer;
  promediomin:integer;
  totalhoras:integer;
begin
   mensajes:=5000;
   promediomin:=3;

showmessage('Gracias Marcos por tus:'+inttostr((mensajes*promediomin)/60)+' horas invertidas en este foro');

end;