Programalama > PASCAL

uses crt,graph;
var
gd,gm,i:integer;
begin
gd:=detect;
Initgraph(gd,gm,'c:\tp\bgi');
setbkcolor(0);
celeardevice;
repeat
for i:=1 to 62 do 
setcolor(i);
rectangle(10*i,5*i,630-10*i,470-5*i);
delay(100);
end;
setcolo(0);
while i>0 do
begin
rectangle(10*i,5*i,630-10*i,470-5*i);
i:=i-1;
delay(100);
end;
until keypressed;
readln;
closegraph;
end.

umut sogutlu
u.sogutlu@gmail.com