1) I=(1024*8*64*64)/(8*1024*1024)=4 Мб
2) I=(512*16*64*64)/(8*1024*1024)=4 Мб
Var
a:integer;
begin
read(a);
if a mod 2 = 0 then
writeln('Четное')
else
writeln('Нечетное');
end.
Операционная система для 7-го
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 0, 100);
a.Println
end.