Дана строка символов, состоящая только из цифр. Определить, сколько раз среди них встречается цифра 5.

program zz1;

var s:string;

i, k1, d:integer;

begin

read (s); / /вводим исходную строку состоящую только из цифр

d:=length (s); / /определяем длину исходной строки3

for i:=1 to d do / /перебираем все буквы от первой до последней

if s[i]='5' then k1:=k1+1; / /проверяем, если буква из строки равна цифре пять, то увеличиваем переменную k1 на единицу

writeln ('количество цифр 5 в исходной строке - ', k1); / /выводим ответ

end.