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

var  st: string;  i: byte;  sum: integer;  begin  st := 'БАЙТ';  for i:=1 to Length(st) do sum:=sum+ord(st[i]);  Writeln('Сумма кодов букв в слове БАЙТ = ', sum);end.