№9 №10 помогите пожалуйста ... срочно ))

Question

№9 №10 помогите пожалуйста ... срочно ))

---

Answer 1

Var
   A:integer;
Begin
Write('Введите число: ');ReadLn(A);
Case A of
1:WriteLn('Один бань');
5:WriteLn('Пять бань');
10:WriteLn('Десять бань');
25:WriteLn('Двадцать пять бань');
50:WriteLn('Пятьдесят бань');
else WriteLn('Недопустимое значение')
End;
End.



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