В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000. Запишите в переменную S сумму первых после десятичной точки трёх цифр числа Y. Можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.

 пишу для паскаляreadln(n);z:=trunc(n);n:=n-z;for i:=1 to 3 do beginn:=n*10;s:=s+trunc(n);end;где n искомое числоz число без дробной частиi счетчик