Дана строчка знаков, состоящая только из цифр. Найти, сколько раз посреди

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.