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

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.