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.
Веселый шрифт |