program kiem_tra;
uses crt;
var c:char;
begin
clrscr;
write('Nhap phim: '); readln(c);
if c in ['0'..'9'] then write('So')
else if (c in ['a'..'z']) or (c in ['A'..'Z']) then write('Chu cai')
else if c in ['+','-','*',':','/'] then write('Pheps toan')
else write('Ki tu khac');
readln;
end.