MODULE Hello;
IMPORT 
    Out, 
    BubbleSort;

CONST 
    hello = "HELLO";
    m = 100000;
VAR 
    a : ARRAY m OF REAL;
    i : INTEGER;
    e : REAL;
BEGIN
    
    e := FLT(m);
    
    FOR i:=0 TO m - 1 DO
        a [ m  - i - 1 ] := e;
        e := e - 1.0;
    END;

    BubbleSort.Sort(a);
    
    Out.String(hello); 
    Out.Ln;
    
END Hello.

var m = 100_000;
var a = new double[m];
var s = (double)m;
for (var i = 0; i < m; i++)
{
    a[i] = s;
    s = s - 1;
}

Sort(a);

Console.WriteLine("HeLLO");

static void Sort(double[] a)
{
    var Swap = (ref double x, ref double y) =>
    {
        var t = x;
        x = y;
        y = t;
    };

    for (var i = 0; i < a.Length; i++)
        for (var j = 0; j < a.Length - 1 - i; j++)
            if (a[j + 1] < a[j])
                Swap(ref a[j + 1], ref a[j]);
}