program Program01; uses sysutils; var szam : Real; str : String; BEGIN szam := 3.5; str := FloatToStr(szam); END.