{* Задача 293 *}

Unit ZADACH293;
Interface
Implementation
Begin
 writeln('Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.');
End.

Program pas14578;

Uses zadach293.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  s : String;
  i : integer;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Введите строку символов, содержащую двоеточие ":" (длина');
  writeln('строки не должна превышать 255 символов):');
  error :    readln(s);
  If pos (':', s) = 0 Then
  Begin
    writeln; {* Вывод пустой строки *}
    writeln('В данной строке символов двоеточие ":" отсутствует, пов-');
    writeln('торите ввод:');
    Goto error;
  End;
  i := pos (':', s);
  i := i - 1;
  writeln; {* Пропускаем одну строку *}
  If i = 0 Then
    writeln('В данной строке двоеточие ":" расположено на первом месте');
  If i > 0 Then
  Begin
    writeln('Количество символов, предшествующих двоеточию в данной');
    writeln('строке символов, равно ', i : 2);
  End;
  readln
End.