СОСТАВИТЬ ПРОГРАММУ
Вычислить сумму порядковых номеров всех букв , входящих в слово 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.