Program membaca karakter pada keybord komputer

program tgs_lab_nmr3;
uses crt;
label firman93;
var n:char;
begin
clrscr;
firman93:
write('Masukkan karakter= ');readln(n);
if (n>='a') and (n<='z') then
writeln('karakter yang anda masukkan berupa huruf kecil')
else if (n>='A') and (n<='Z') then
writeln('karakter yang anda masukkan berupa huruf kapital')
else if (n='!') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='@') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='#') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='$') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='%') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='^') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='&') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='*') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='(') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n=')') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='-') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='_') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='+') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='=') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='1') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='2') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='3') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='4') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='5') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='6') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='7') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='8') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='9') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='0') then
writeln('karakter yang anda masukkan berupa karakter angka')
else if (n='{') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='[') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n=']') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='}') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='\') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='|') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n=':') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n=';') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='<') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='>') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n=',') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='?') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else if (n='/') then
writeln('karakter yang anda masukkan berupa karakter istimewa')
else
writeln('Silahkan masukkan pilih tombol karakter yang ada keybord anda');
goto firman93;
readln;
end.