{* Задача 315 *}

Unit ZADACH315;
Interface
Implementation
Begin
 writeln('В заданной строке удалить символ двоеточие (:) и подсчитать количество удаленных символов.');
End.

Program zadach315;

Uses zadach315.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  s : String;
  a : String;
  i : integer;
  n : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите  строку  символов, содержащую двоеточие ":"');
  readln(s);
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
    If s[i]  ':' Then
      a := a + s[i]
    Else n := n + 1;
      writeln; {* Вывод пустой строки *}
  writeln('После удаления всех символов ":" строка примет вид:');
  writeln(a);
  writeln('Удалено ', n : 2, ' символов ":"');
  readln
End.