Algoritmo para saber cuanto ha invertido Marcos
Código:
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;