program an_toan;
uses crt;
var s,s1:string;
i,j,d:integer;
{---Kiem-tra---}
function kt(st:string):boolean;
var k,d1,d2,d3:byte;
begin
d1:=0; d2:=0; d3:=0;
for k:=1 to length(st) do
if st[k] in ['0'..'9'] then d1:=d1+1
else if st[k] in ['a'..'z'] then d2:=d2+1
else if st[k] in ['A'..'Z'] then d3:=d3+1;
if (d1>0) and (d2>0) and (d3>0) and (d1+d2+d3=length(st)) then kt:=true
else kt:=false;
end;
{---CT-chinh---}
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s)-5 do
begin
s1:='';
for j:=i to length(s) do
begin
s1:=s1+s[j];
if (length(s1)>=6) and kt(s1) then d:=d+1;
end;
end;
write(d);
readln;
end.
