program SumDigitsAfterDecimalPoint;
var
Y, P: real;
integerPart, fractionPart: real;
digit1, digit2, digit3, digit4: integer;
begin
Y := 1234.5678; // пример числа
// Выделяем целую и дробную части числа Y
integerPart := Trunc$Y$;
fractionPart := Frac$Y$;
// Вычисляем сумму первых четырех цифр после десятичной точки
digit1 := Trunc$fractionPart\ast 10$ mod 10;
digit2 := Trunc$fractionPart\ast 100$ mod 10;
digit3 := Trunc$fractionPart\ast 1000$ mod 10;
digit4 := Trunc$fractionPart\ast 10000$ mod 10;
P := digit1 + digit2 + digit3 + digit4;
writeln${}^{\prime }Суммапервыхчетырехцифрпоследесятичнойточки{:}^{\prime },P$;
end.