function kts(c:char):boolean;
begin kts:=false;if c in ['0'..'9']then kts:=true end;
function ktc(c:char):boolean;
begin ktc:=false;c:=upcase(c);
if c in ['A'..'Z']then ktc:=true end;
var s:char;
begin
readln(s);
if ktc(s) then write(s,' la chu');
if kts(s) then write(s,' la so');
end.
Bookmarks