3 и 5 номер пожалуйста,** языке паскаль

Question

3 и 5 номер пожалуйста,на языке паскаль

---

Answer 1

Var
   S:real;
   n:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+(n+1)/n;
WriteLn('S = ',S)
End.



Var
   x:integer;
   S:real;
Begin
S:=0;
For x:= 1 to 10 do
    Begin
    S:=S+Cos(5*x);
    if Cos(5*x)>0 then
       WriteLn('№',x,', Cos(',5*x,') = ',Cos(5*x))
    End;
WriteLn('S = ',S);
End.