program Money;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var Smalla :String;
Whered :Integer;
Small :real;

begin
Small :=1001.11;
Smalla :=formatfloat('0.0',Small);
Whered :=pos('.',Smalla);
Writeln(Whered);
//结束
Readln;
end.