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

const

  s = 'байт';

var

  i, sum : integer;

begin

  sum : = 0;

  for i : = 1 to 4 do

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

  writeln (sum);

end.

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.