Viết chương trình nhập vào kí tự c. Kiểm tra xem nếu kí tự nhập vào là kí tự thường trong khoảng từ 'a' đến 'z' thì đổi sang chữ in hoa và in ra, nếu kí tự in hoa trong khoảng A đến Z thì đổi sang chữ thường và in ra, nếu kí tự là số từ 0 đến 9 thì in ra câu "Kí tự bạn vừa nhập là số …(in ra kí tự c)", còn lại không phải 3 trường hợp trên in ra thông báo "Bạn đã nhập kí tự …(in ra kí tự c)".

uses crt;
var c:char;
begin
    readln(c);
    if c in ['a'..'z'] then writeln(upcase(c)) else
    if c in ['A'..'Z'] then writeln(lowercase(c)) else
    if c in ['0'..'9'] then writeln('Ky tu ban vua nhap la so ',c) else
    writeln('Ky tu ban vua nhap la ',c);
readln;
end.

program bai_giai;
uses crt;
var c:char;
begin
    clrscr;
    write('Nhap ki tu c: ');  readln(c);
    if c in ['a'..'z'] then
        begin
            c:=upcase(c);
            write(c);
        end
    else if c in ['A'..'Z'] then
        begin
            c:=chr(ord(c)+32);
            write(c);
        end
    else if c in ['0'..'9'] then write('Ki tu ban vua nhap la so ',c)
        else writeln('Ban da nhap ki tu ',c);
    readln;
end.