Використання вільної пам'яті, Детальна інформація

cnt:=cnt+1;

end;

if cnt=4 then begin writeln; cnt:=0 end;

end;

writeln;

writeln('вільна пам''ять : ', memavail,

'; найбільша ділянка : ', maxavail);

readln;

end.