var
s:string;
i,count:integer;
a: set of char;
begin
i:=3;
readln(s);
writeln('1)');
if length(s)>=3 then
repeat
write(s[i]);
i:=i+3;
until i>length(s)
else
writeln('error');
writeln;
writeln('2)');
i:=2;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
i:=1;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
writeln('3)');
a:=[];
count:=0;
for i := 1 to length(s) do
if s[i] in a then
else
begin
a:=a+[s[i]];
inc(count);
end;
writeln(count);
end.
а де питання?? на що відповідати нерозумію