СОСТАВИТЬ ПРОГРАММУ Вычислить сумму порядковых номеров всех букв , входящих в сл

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