begin

t := MemL[0:$46C] ;

while t=MemL[0:$46C] do;

end; {Get Time} _'————————.——;

begin {Основная программа} {Проверяем наличие EMM} If not IsEMS then begin

WriteLn('Нет ЕМЗ-памяти или не установлен EMM');

Halt end;

Colors(LightGray,Black);

CIrScr;

{Сообщаем номер версии, общую и доступную память} WriteLn('Используется EMM версии ',GetEMMVersion);

WriteLn(' Сегмент окна отображения $',HexW(EMSSeg));

GetEMSInfo(All,Pages) ;

WriteLn(' Всего страниц : ',А11,' (',

round(All*16.0*1024),' байт)');

Sz := round(Pages*16.0*1024);

WriteLn (' Свободно страниц: ',Pages,' (',Sz,' байт)');

{Определяем количество X 16-Кбайтных страниц в куче} х := MaxAvail div LPage;

if x>Pages then x := Pages; {Уравниваем с EMM} {Распределяем в куче массивы из 4096 длинных целых чисел} dec (х) ;

for k := 0 to x do

if MaxAvail>=LPage then GetMem(PV[k],LPage) ;

x := k;

Sz :==succ (x) *LPage div 4;

WriteLn('Создаем массив из ',Sz,

' длинных целых чисел в куче...');

GetTime; {Засекаем время} for j := 0 to x do

for k := 0 to LPage div 4-1 do begin

PVEjJ'^k] := j* (LPage div 4)+k;

if PVtjI'^k] mod 1000=0 then begin

Write (PVCjI^k:] :10);

GotoXY(l,WhereY) end end;

{Подсчитываем его сумму} WriteLn('Подсчитываем его сумму...');