{$APPTYPE CONSOLE}

// индикатоp pесуpсов
program res;

function MyGetFreeSystemResources32(Id: integer): integer;
stdcall; external 'rsrc32' name '_MyGetFreeSystemResources32@4';

const
  rSystem = 0;
  rGDI = 1;
  rUSER = 2;

begin
  writeln('free resources');
  writeln('System:', MyGetFreeSystemResources32(rSystem), '%');
  writeln('GDI:', MyGetFreeSystemResources32(rGDI), '%');
  writeln('USER:', MyGetFreeSystemResources32(rUSER), '%');
end.