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

";



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: @"%@