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.