помогите!!!!!!!!!!!

[xrystynka171]

написать программу, которая выводит сумму всех цифр содержащихся в заданной строке
ВЫХОДНЫХ данные: вы вводите с клавиатуры строку в котором есть хотя бы одна цифра

н-р, исходные данные: fgghjf4hbnj7, выходные: 11
на языке программирования Pascal
спасибо

[Stilet]

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

[xrystynka171]

спасибо,а можно еще 1???

есть неограниченное количество монет 1,2,5,10,25,50 копийок.написаты программу, которая будет определять, какой наименьшим количеством монет можно выдать определенную сумму в гривнах,
н-р, исходные данные: сумма в гривнах 2,72
выходные: 8