Запишите на языке Паскаль программу,которая вычисляет сумму ...

Vasy

const

  s = 'БАЙТ';

var

  i, sum : integer;

begin

  sum := 0;

  for i := 1 to 4 do

    sum := sum + ord (s[i]);

  writeln (sum);

end.