Операция преобразования символов одной знаковой системы в знаки другой

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.