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

Var i, x: integer;
y: real;
begin
//присваиваем первоначальные значения переменным
x:=10; y:=1;
//вычисляем значение функции
for i:=1 to 19 do
begin
y:=y*(1/x);
Writeln ('Шаг ', i, ', Значение x - ', x, ', Значение Y - ', y);
x:=x+5;
end;
//выводим значение функции
writeln('Значение функции: ', y);
end.