program abc;
var s:string;
begin
readLn(s);
writeLn(ord(s[1])+ord(s[2])+ord(s[3])+ord(s[4])+ord(s[5]))
end.
Объяснение:
