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

  const      b = 'байт';     var    l,i,s : integer;           begin  l : = length(b);   s : = 0;     for i : = 1 to l do    s : = s +ord(b[i]);         writeln (s);   end.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.