Program pLITERA
var car: char
Begin
writeln ('Introdu un caracter');
readln (car);
writeln ('raspuns');
case car of
'A'..'Z' : writeln ('Caracterul introdus este o litera');
'a'..'z' : writeln ('Caracterul introdus este o litera');
else writeln ('Caracterul introdus este o cifra sau un caracter special');
end;
readln
end.