Código Delphi [-] var temp:real; begin temp:=Tunumero-(trunc(Tunumero)); end;
var temp:real; begin temp:=Tunumero-(trunc(Tunumero)); end;