Дано вещественное число с 2-мя цифрами в целой доли и одной

var

 x, y, a, b, c: real;

 t: integer;

begin

 read(x);

 t := Round(10 * x);

 a := t div 100;

 b := (t div 10) mod 10;

 c := t mod 10;

 y := c + b / 10 + a / 100;

 Println(y);

end.

Или можно уменьшить число применяемых переменных:

var

 x: real;

 t: integer;

begin

 read(x);

 t := Round(10 * x);

 Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);

end.

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 'ReadReal:00.0'.Inverse.Println

end.

16.9

9.61