Program Tema;
var A:set of char;
function nr_caractere(A:set of char):integer;
var length:integer;
c:char;
begin
length:=0;
for c in A do
length:=length+1;
nr_caractere:=length;
end;
begin
writeln('Introduceti sirul de caractere:');
readln(A);
writeln('Nr de caractere din sirul A este:',nr_caractere(A));
end.