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

const

  s = 'байт';

var

  i, sum : integer;

begin

  sum : = 0;

  for i : = 1 to 4 do

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

  writeln (sum);

end.

3^i = 18

i = 3

ответ. 3 лампочки.

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.