{$codepage UTF8} VAR Num1:single; ParteEnt,ParteFrac:single; Ent:integer; BEGIN Num1:=65.89; //Ejemplo Trunc Ent:=Trunc(Num1); Writeln(Ent); //Ejemplo Int ParteEnt:=Int(Num1); Writeln(ParteEnt:5:2); //Ejemplo Frac ParteFrac:=Frac(Num1); Writeln(ParteFrac:5:2); Readln() END.