Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ

program SumOfChars; var Word: string; Sum, i: integer; begin Word := 'БАЙТ'; Sum := 0; for i := 1 to Length(Word) do Sum := Sum + Ord(Word[i]); writeln('Сумма кодов букв в слове "', Word, '" равна ', Sum); end.