在pascal中输出时如何保留两位小数（不要四舍五入）？例如0.999输出为0.99

var r:real; t:longint; begin readln(r); r:=r*100; t:=trunc(r); r:=t/100; writeln(r:0:2); end.