7.3.. Napisati program koji odredjuje da li je zadani znak veliko ili malo slovo ili cifra, prema slijedećoj tabeli:

Listing programa:

PROGRAM Slovo_cifra;
VAR
a: Char;
BEGIN
  Writeln('Veliko ili malo slovo ');
  Write('Slovo ');
  Readln(a);
  CASE a OF
    'A'..'Z' : Writeln('Veliko slovo');
    'a'..'z' : Writeln('Malo slovo');
    '0'..'9' : Writeln('Cifra');
  END;
  READLN;

END.

Ispis na ekranu:

Index