Если очень хочется сделать что-то доброе и безвозмездно , но ничего не идёт в голову , это рок ?

Даже просить ни чего не нужно. На добро - добро всегда возвращается...
На то это и добрые дела...

Постоянно

Это парадокс жизни! "Не объяснимо но Факт"
Дааа дааа и такое бывало ;) :DDDDDDD
Но миниралочки под рукой небыло, поэтому догонялись чайком, бульёнчиком, цитромончиком! :DDDDDD

пойти прогуляться. погода отличная.

подари маме цветы, а остальные деньги отнеси в Рими, кинь около кассы в коробочку для благотворительности, возьми там же ангелочка и повесь его в окно. это только в том случае, если ты точно хочешь сделать что-то доброе..

позвони и закажи пиззу Ж) или позови друга с хавкой Ж)

В экстренных случаях - тут же оперативно спешу на помощь, если понадобится мое участие. Это когда сигнал поступает из внешнего пространства к которому я небезразличен, а что касается моего личного самочувствия, то стараюсь просто на просто не скучать, а добро потом само прорисовывается на холсте дней.

Выйди на улицу рядом с домом сядь на скамейку и жуй кусок батона, лень на раз снимает.... ну и во время этого смотри на небо  

сначала достаю работу(открываю лист, беру материалы...) и начинаю потихоньку, постоянно отключаясь на внешние раздражители.. а там выключаю все лишнее постепенно, глядишь и в работе уже. Либо даю установку- час работаю час отдыхаю.. потом еще час. если отвлекаюсь, добавляю себе 15 минут   а что делать. вот такая я лентяйка. надо же как-то с этим жить

Где ошибка?

Program grafika;
Uses graph;
Var a,b,k,x,y:integer;
Begin
a:=detect;
Initgraph (a,b,'c\TP\Bgi');
if graphresult <> grok then begin
writeln ('kluda nevar pariet graf rezima');
Readln;
end;
ClearDevice;
Randomize;
SetBkColor(2);
For k:=1 to 30 do
Begin
x:=random (getmaxX);
y:=random (getmaxY);
Setcolor (3);
circle (x,y,25);
SetfillStyle (5,10);
FloodFill (x,y,2);
end;
Setcolor (4);
outtextXY (275,250,'aplisi');
readln;
closegraph;
end.