Тема:символьный тип в паскаль
Вычислить сумму порядковых номеров всех букв , входящих в слово SUM
Помогите ,пожалуйста

var    i, s: integer;    str: string;begin    str := 'SUM';    for i := 1 to Length(str) do        s := s + ord(str[i]);    writeln(s);end.