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

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var y:=ReadReal('Y=');
  var p:=Trunc(Frac(y)*1000);
  p:=(p div 100)*(p div 10 mod 10)*(p mod 10);
  Writeln('P=',p)
end.

Пример
Y= 29632.637823
P=126

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