А почему sum это процедура, а не функция. Она же считает 1 значение. И тогда можно так
Sum(n1,m1,f1) + Sum(n2,m2,f2)
Также не понятно зачем Sum1. И что там происходит... S3 она не выводит. Да и для сложения двух результатов вряд-ли нужна отдельная процедура.
