Помогите сделать код на Pascal ABC

Question

Помогите сделать код на Pascal ABC

Роман Семенов Ученик (158), на голосовании 6 месяцев назад

Нужен код копилки ,которая будет считывать некие числа которые есть в коде например: в коде есть набранные числа 7;9;1;3;2;5 и потом оно должно считывается в 1 число 27

Answer 1

Числа или цифры? Еслиифры (однозначные числа, как в примере) то

var s:string; k,i:integer;
begin
k:=0; write('String: '); readln(s);
for i:=1 to length(s) do if s[i]in['0'..'9'] then k:=k+ord(s[i])-48;
writeln(k);
end.

И при чем тут раздел вёрстки?