Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.
16 777 216 = 2^i = 2^24 <span>
i = 24 бит
Всего точек 1024 х 768 = 786432
</span><span>24 х 786432 = 18874368 бита / 8 бит / 1024 байт = 2304 Кбайт / 1024 байт = 2,25 М байта</span>