لینک دانلود فایل | ID: GP884-RWM4K-VY2J2-3X6XC-YXY73 | حجم فایل: ۱۶.۴ مگابایت
{**********************************************}
uses graph;
var x,i,j:integer;
begin
x:=round(getmax/2);
for i:=0 to 40 do
begin
j:=i*8;
rectangle(round(x-j/2),9+j,round(x+j/2),5+j);
rectangle(round(x-j/2),399+j,round(x+j/2),395-j);
end;
setcolor(9);
settextstyle(1,0,5);
outtextxy(120,400,'press enterto end);
outtextxy(120,410,'abrobad.persianblog.com');
end.
{*************************************}