Веселый шрифт Опции

[Shuruper]

Очень короткая но и интересная демка (текст можно менять):

Uses crt,graph;
Var a,b:integer;
    x,y:integer;
    c:integer;
BEGIN
Randomize;
a:=detect;
InitGraph(a,b,'');
SetTextStyle(0,0,9);
x:=100;
y:=100;
repeat
 c:=1+random(15);
 x:=100+random(10);
 y:=100+random(10);
 Setcolor©;
 Outtextxy(x,y,'CooL');
until keypressed;
ReadLn;
CloseGraph;
END.

[Ramms1ein]

Lapp, ты говоришь: "Короче - не всегда эффективней". Я с тобой не согласен. Мы не говорим о правильности и не правильности, мы говорим длине. И если тоже самое написано в два или в три раза короче оно на много эффективней предыдущего.