یه برنامه پاسکال توپ

{**********************************************}

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.
{*************************************}