С клавиатуры вводится вещественное число. Вывести суммутрёх его первых цифр после десятичной точки.

begin
  var r:=ReadReal('Введите вещественное число:');
  var n:=Trunc(1000*Frac(r));
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма трех первых цифр дробной части: ',s);
end.


Введите вещественное число: 3.141592
Сумма трех первых цифр дробной части: 6