9 10 помогите пожалуйста ... безотлагательно ))

Var
   A:integer;
Begin
Write('Введите число: ');ReadLn(A);
Case A of
1:WriteLn('Один бань');
5:WriteLn('5 бань');
10:WriteLn('Десять бань');
25:WriteLn('Двадцать 5 бань');
50:WriteLn('50 бань');
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.