uses crt;

var s : string;

i, d1, d2: integer;

begin

clrscr;

d1 := 0; d2 := 0;

write('nhap xau ki tu : '); readln(s);

for i:= 1 to length(s) do

begin

if s[i] in ['A'..'Z'] then d1 := d1 + 1;

if s[i] in ['a'..'z'] then d1 := d1 + 1;

if s[i] in ['1'..'9'] then d2 := d2 + 1;

end;

writeln(d1,' ki tu chu cai ');

writeln(d2,' ki tu chu so ');

delete(s,1,5);

writeln('xau sau khi xoa : ', s);

readln

end.

uses crt;
var s: string;
    i, res, cnt: longint;
begin
clrscr;
    readln(s);

    for i:=1 to length(s) do
        begin
            if s[i] in ['0'..'9'] then inc(res);
            if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(cnt);
        end;

    writeln('Number: ', res);
    writeln('Letter: ', cnt);

    delete(s, 1, 5);
    writeln(s);
readln;
end.