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

var n,p,i: integer;    s: real;begin  p:=1;  write('число: ');  readln(s);  for i:=1 to 3 do  begin    s:=s*10;    n:=floor(s) mod 10;      p:=p*n;  end;writeln('произведение: ',p);end.число: 425.3452произведение: 60