я вообще в этом не разбираюсь.

a в квадрате плюс b в квадрате:  

;

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

строка меню, строка заголовка, закрывающая кнопка, сворачивающая кнопка, разворачивающая кнопка, полосы прокрутки, рамка окна, рабочая область.

2048 бит : 8: 1024= 0.25 кбайт