 
                                                 
                                                или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:

 
                                                 
                                                или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:

 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                 
                                                
Да, правильный ответ - г)