superugrokmilom Program №1;
uses crt;
var st:String;
q,i:Integer;
begin
clrscr;
writeln('Данная программа позволяет вычислить сумму кодов всех букв входящих в заданное слово');
writeln('Введите слово ( количество букв в слове не должно превышать 50)');
readln(st);
q:=0;
for i:=1 to length(st) do
q:=q+ord(st[ i ]);
Writeln(q);
readkey;
end.