Дан массив в=[5,10,15], запишите программный код для вычисления суммы элементов в данном массиве​

Паскальавс.нет var   f: text;   s,t: string;   i,n: integer;   y: boolean;   //признак наличия слова no    function wr(c: char): boolean; //определяет, буква или нет begin if (c in ['a'..'z']) or (c in ['a'..'z']) then result: =true else result: =false end; begin assign(f,'d: /file.txt'); reset(f); repeat   readln(f,t);   s: =t;   y: =false;   i: =pos('no',s);   while i> 0 do     begin     n: =length(s);     if n=2 then         y: =true         else             begin             if i=1 then               begin               if wr(s[i+2])=false then y: =true;               end               else                   if wr(s[i-1])=false then y: =true;             end;     delete(s,1,i+2);     i: =pos('no',s);     end;     if y=false then writeln(t);     until f.eof; close(f) end.