var
s:string;
begin
s:=Edit1.Text;
for s:=1 to length(s) do
begin
if s[i]=',' then delete(s,i,1);
ShowMessage(s);
end;
end;
Вспомагательные клавиши или службенные
А) металл ;цифровая
б) бумага (картон); цифровая (индекс), текстовая, графическая
в) бумага; текстовая, цифровая
г) бумага; цифровая, текстовая, графическая
д)оптический или цифровой диск; видео, аудио.
насчет диска точно не знаю, извини))
Получатся числа 16 15 5 4 3 1
Сумма=44