На отрезке [1;2] с шагом 0,1 протабулировать функцию: cos2/x-2sin1/x+1/x

Program z;Var s:real   i:integer;BeginFor i:=0 to 10 do Begin  s:=cos2/(1+i/10)-2sin1/(1+i/10)+1/(1+i/10);   writeln(s); end;End.