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