 Собака2609 
                                                20.01.2020 21:59
                                                
                                                Собака2609 
                                                20.01.2020 21:59
                                             hihilaim 
                                                20.01.2020 21:59
                                                
                                                hihilaim 
                                                20.01.2020 21:59
                                             D10A 
                                                20.01.2020 21:56
                                                
                                                D10A 
                                                20.01.2020 21:56
                                             асат7 
                                                20.01.2020 21:56
                                                
                                                асат7 
                                                20.01.2020 21:56
                                             Человек1234512345 
                                                09.12.2020 04:35
                                                
                                                Человек1234512345 
                                                09.12.2020 04:35
                                             FruitAPps 
                                                30.11.2020 15:20
                                                
                                                FruitAPps 
                                                30.11.2020 15:20
                                             LunnayaLiliya 
                                                30.11.2020 15:20
                                                
                                                LunnayaLiliya 
                                                30.11.2020 15:20
                                             gabpara007 
                                                30.11.2020 15:20
                                                
                                                gabpara007 
                                                30.11.2020 15:20
                                            
Извиняюсь.
Var i,n:integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.