1 КБ = 1024 байт
1,5 КБ = 1536 байт
2048 байт = 2 КБ
2 МБ = 2048 КБ
81920 бит = 10 КБ
1,5 МБ = 1 572 864 байт
Подставь и посчитай и все
Uses Graphabc;
begin
SetWindowWidth(530);
SetWindowHeight(200);
SetPenWidth(5);
Rectangle(250, 10, 310, 70);
Rectangle(210, 70, 350, 130);
Rectangle(170, 130, 390, 190);
end.
Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.