1. вычислить, используя функцию y = 1 / 10 • 1 /15 • 1 / 20 • • 1 /100 в pascal abc

Var
x:integer;
y:real;
begin
    x:=10;   y:=1;
         while x<=100 do
              begin
                   y:=y*(1/x);
                   x:=x+5;
              end;
writeln('y= ',y);
end.