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

В Pascal ABC

varx: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.