var
   r : double;
   s : string;

begin
   r:=1234.0;
   str(r,s);
end.