lab7.pas

program lab7;
uses crt;
var st:string; i,k:integer;

Begin
clrscr;
write('Введите строку символов: ');
readln(st);
k:=0;
for i:=1 to length(st) do
  if (st[i]=',') and (st[i+1]=':') then k:=k+1;
if k > 0 then 
  writeln('В строке присутствуют два соседствующих символа ",:", количество:',k:3)
else
  writeln('В строке отсутствуют два соседствующих символа ",:"');
Readkey;
End.