Language:
Русский
English
{Memavail.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the MemAvail function.}
begin
Writeln(MemAvail, ' bytes available');
Writeln('Largest free block is ', MaxAvail, ' bytes');
end.
Memavail.PAS |
Language: {Memavail.PAS} begin |
|
|