Greater than/fi

program comparisonDemo(input, output, stderr);

type
    size = (tiny, small, medium, large, huge);

var
    n, m: longint;
    c, d: char;

begin
    // niin tietenkin, kokonaislukuja voidaan verrata
    n :=  2;
    m := -2;
    
    if n > m then
    begin
        writeLn(n, ' > ', m);
    end;
    
    // myös luetellut tyypit voidaan laittaa järjestykseen
    if huge > medium then
    begin
        writeLn('huge on suurempi kuin medium');
    end;
    
    // vakiot true ja falset ovat myös vertailukelpoisia
    if true > false then
    begin
        writeLn('true on suurempi kuin false');
    end;
    
    // myos merkit ovat järjestyksessä toisiinsa nähden
    // (tulos riippuu käytetystä merkistökoodauksesta)
    c := 'a';
    d := 'Z';
    
    if c > d then
    begin
        writeLn(c, ' > ', d);
    end;
end.

program comparisonSignedDemo(input, output, stderr);

var
    n: int64;
    m: qword;

begin
    n := -1; // n tallennetaan %111...111
    m :=  2; // m tallennetaan %000...010
    
    // etumerkillinen vertailu
    if n > m then
    begin
        writeLn(n, ' > ', m);
    end;
    
    // "etumerkitön" vertailu
    if qword(n) > m then
    begin
        writeLn('qword(', n, ') > ', m);
    end;
end.