паскаль подпрограммы

[Джуля]

помогите написать прог-му...
написать программу,содержащую подпрограмму для вычисления квадрата суммы тех элементов массива b(100),значения которых меньше 10

[GetMax]

Function Sum(Var M:Massiv;P:Byte):Integer;
Var
  S:Integer;
  i:Byte;
Begin
   For i:=1 to P do
   Begin
     If M[i] < 10 then S:=S+Sqr(M[i])
   End;
   Sum:=S
End;

[Джуля]

а дальше что,вывод s ?
помогите пожалуйста составить блок схему
я совсем не понимаю как

[GetMax]

а дальше что

А дальше вводим/выводим массив и считаем сумму.

....
Writeln('Summa = ',Sum(b,p));

Где р - число элементов в массиве

[Джуля]

огромное Вам спасибо))

[Son Of Pain]

Правда приведенный код считает сумму квадратов, а не квадрат суммы. И в нем ошибка - переменная s не обнуляется перед использованием ))

[Джуля]

спасибо
я уже учла