uses sysutils; var a : Real; BEGIN a := 3438.1234567; WriteLn(Format('%.3F', [a])); ReadLn; END.