Напишите пожалуйста 12 номер

Не самый лаконичный и эффективный код, да и заточен необыкновенно под 4 знака, но работает верно.

program sk;

uses crt;

var kod1,kod2,kod3,kod4: byte;

sim1,sim2,sim3,sim4: char;

s: integer;

begin

clrscr;

write ('Введите слово: ');

readln (sim1,sim2,sim3,sim4);

kod1:= ord(sim1);

kod2:= ord(sim2);

kod3:= ord(sim3);

kod4:= ord(sim4);

writeln ('Код ',sim1,' = ',kod1,';',

' Код ',sim2,' = ',kod2,';',

' Код ',sim3,' = ', kod3,';',

' Код ',sim4, ' = ',kod4,';');

s:=kod1+kod2+kod3+kod4;

writeln('Сумма кодов = ',s);

end.

Результат на скриншоте.