Вопрос, который вызвал трудности
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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.