PROGRAM PR5_3; USES CRT; CONST A=' '; VAR S:STRING; I,J,L:LONGINT; K,L1:INTEGER; BEGIN CLRSCR; WRITELN (A); READLN (S); L:=LENGTH(S); L1:=1; FOR I:=1 TO L DO K:=0; FOR J:=1 TO L DO IF S[I]=S[J] THEN DELETE (S,J,L1); WRITELN(L); WRITELN (S); READLN; END.