program SumLetters;
var
word: string;
sum: integer;
i: integer;
begin
word := 'BYTE';
sum := 0;

for i := 1 to length(word) do
begin
sum := sum + Ord(word[i]);
end;

writeln('Сумма кодов букв в слове BYTE: ', sum);
end.