Ввещественной переменной y записано некоторое неотрицательное число, не превосходящее 30000. запишите в переменную s сумму первых после десятичной точки трёх цифр числа y. можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.
readln(n);
z:=trunc(n);
n:=n-z;
for i:=1 to 3 do begin
n:=n*10;
s:=s+trunc(n);
end;
где n искомое число
z число без дробной части
i счетчик