var
P: PSingle;
begin
P := GetMem(10 * SizeOf(Single));
P[4] := 3.14;
Write(P[4]);
ReadLn();
FreeMem(P);
end.
dmFyCiAgUDogUFNpbmdsZTsKYmVnaW4KICBQIDo9IEdldE1lbSgxMCAqIFNpemVPZihTaW5nbGUpKTsKICBQWzRdIDo9IDMuMTQ7CgogIFdyaXRlKFBbNF0pOwogIFJlYWRMbigpOwoKICBGcmVlTWVtKFApOwplbmQu