Написать программу для турбо паскаля: нахождение суммы цифр числа

"; nsstring *sqlpath = [[nsbundle mainbundle] pathforresource: db_basename oftype: @"sqlite"]; fmdatabase *mydb = [[fmdatabase alloc] initwithpath: sqlpath]; [mydb open]; // subgrouppicarray = [[nsmutablearray alloc] init]; a = selectyear; b = selectvar; if([selectyear isequaltostring: @""]) selectsql = [nsstring stringwithformat: @"select text, question.sort, name from question, main where main.key=question.key and var=\"%@\"", selectvar]; else selectsql = [nsstring stringwithformat: @"select text, question.sort from question, main where main.key=question.key and name=\"%@\" and var=\"%@\"", selectyear, selectvar]; fmresultset *results = [mydb executequery: selectsql]; while([results next]){ if([[results stringforcolumn: @"text"] isequaltostring: @""]){ myhtml = [nsstring stringwithformat: @"%@

",selectvar,[results stringforcolumn: @"sort"]]; // добавление картинок в тело письма nsstring *testimg = [results stringforcolumn: @"sort"]; if (! [testimg isequal: @""]){ testimg =[nsstring stringwithformat: @"%@.jpg",testimg]; // testimg = [nsurl fileurlwithpath: [[nsbundle mainbundle] pathforresource: testimg oftype: @"jpg"]]; nsdata *imagedata = uiimagejpegrepresentation([uiimage imagenamed: testimg],1); [mc addattachmentdata: imagedata mimetype: @"" filename: testimg]; } } else // формирование текста страницы просмотра myhtml = [nsstring stringwithformat: @"%@

%@

javascript: var массив = []; for (let сч = 1; сч < = 6; сч++) массив.push(parseint(prompt(сч + ": "; var сумма = массив.reduce(function(s, c) {   return s + c;   }, 0) / 1000, среднее = сумма / массив.length; alert("среднее: " + среднее + ", сумма: " + сумма + ".");

обрати внимание на то, что килобайт - это ровно тысяча байтов (см. госты по электросвязи).