uses crt;
var fi,fo:text;
st:string;
i,dem:byte;
BEGIN
clrscr;
assign(fi,'xau.txt');
assign(fo,'kq.dat');
{$I-} reset(fi); {$I+}
if ioresult<>0 then
begin
rewrite(fi);
reset(fi);
end;
read(fi,st);
close(fi); rewrite(fo);
{CAU A}
for i:=1 to length(st) do
write(fo,st[i],' ');
writeln(fo);
{CAU B}
dem:=0;
for i:=1 to length(st) do
if st[i] in ['A'..'Z'] then inc(dem);
write(fo,dem);
close(fo);
END.