Algoritmizace #3

// EXE: http://machalda.cekuj.net/d.php?f=28

program soubor1;

var pom: char;
    cislo: integer;

function upOrLow(znak:char):integer;
var intZ:integer;
begin
     intZ:=ord(znak);
     case intZ of
     1..64: upOrLow:=0;
     65..90: upOrLow:=2;
     91..96: upOrLow:=0;
     97..122: upOrLow:=1;
     else upOrLow:=0;
     end;
end;
begin
     writeln('###########################################################');

           writeln('#    Zadej znak | * = konec');
           write('#->    Znak: ');
           read(pom);
           cislo:=upOrLow(pom);
           case cislo of
                0:writeln('#     To neni pismeno');
                1:writeln('#     Maly pismeno');
                2:writeln('#     Velky pismeno');
                else writeln('#     KONEC SVETA VYBOUCHNE TI PC');
           end;
     writeln('########################## KONEC ##########################');
     readln;

end.