{* Количество цифр 5 в строке *}

Unit CUNTFIVE;
Interface
Implementation
Begin
 writeln('Количество цифр 5 в строке');
End.

Program pas;

Uses cuntfive.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  s : String;
  i : integer;
  b : integer;
Begin
  writeln('Cумма чисел введённой строки ');
  readln(s);
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
  Begin
    If s[i] = '5' Then
      b := b + 1;
  End;
  writeln('Сумма чисел = ', b);
  readln; {* Ждем подтверждения пользователя *}
End.