Написать в паскале программу, которая считает значение выражения x-1/x+x-2/+x-n/nx при заданных x и n

Var x,s,a: real; n,i: integer; begin write('x='); readln(x); write('n='); readln(n); s: =0; for i: =1 to n do     begin   a: =-(x-i)/(i*x);   s: =s+a;   end; writeln('s=',s: 5: 2); end.пример: x=1.5n=10s= 3.74

1. а) петя едет в автобусе, читает книгу и насвистывает.       б) петя насвистывает, когда едет в автобусе или читает книгу.       в) петя едет в автобусе и читает книгу или насвистывает.     г) то же, что и а).     д) петя едет в автобусе или читает книгу и насвистывает. 2. а) число 5-простое = 1.    б) луна-спутник венеры = 0.    в) число 5-простое и луна-спутник венеры = 0. г) число 5-простое или луна-спутник венеры = 1. д) если число 5-простое, то луна-спутник венеры = 0. е) число 5-простое тогда и только тогда, когда луна-спутник венеры = 0. 3. а) 1999< 2000 и 1999> 2000 б) петя решил все контрольной работы и петя не решил все контрольной работы в) неверно, что луна спутник земли и неверно, что луна не является спутником земли г) мишень поражена не первым выстрелом и неверно, что мишень поражена не первым выстрелом. 4. а=1,  в=0,  с=1,  д=0.