Epic18, вот костяк какой-то моей консольной проги, всё работает
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
const
t = 1 shl 21;
/* прямо здесь можно расписать какой-нибудь класс */
var
i, n, m, l, r: integer;
function get_min(l, r: integer): integer;
begin
l := l + t;
end;
begin
n := 0;
end.