Fedya_char

program schet_prepinaniy;
var c:char; x:integer;
begin
    x:=0;
    repeat
        read(c);
        if (c=',') or (c=';') or (c=':') or (c='.') then
        inc(x)
    until c='.';
    writeLN;
    if (x mod 10=0) or (x mod 10>4) then
        write('V posledovatelnosti ',x,' simvolov')
    else
        write('V posledovatelnosti ',x,' simvola');
    readln;
End.