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

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

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