ايران ويج

سلام من پاسکال زیاد بلد نیستم.کمی بلدم.ولی خوب یک برنامه هست که خیلی حیاطی هستش.میشه یکی لطف کنه بنویسه برام.
برنامه ای بنویسید که خروجی زیر را چاپ کند.شاید یکم مسخره باشه.در ضمن این % ,$,@,&,* رو برای این که بشه شکل رو گزاشت نوشتم اینا جر برنامه نیستن ها

%%%%%%%%%%%%%%%%%% 1
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 1 2 1
@@@@@@@@@@@@@@@@ 1 2 3 2 1
&&&&&&&&&&&&&&&&&&&& 1 2 3 4 3 2 1
********************* 1 2 3 4 5 4 3 2 1

سلام

کد: 
var

   R,J:integer;

const

     N=6;

begin

  for R:=1 to N do

  begin

    for J:=1 to N-R do

      write(' ');

    for J := 1 to R do

      write(J);

    for J := R-1 downto 1 do

      write(J);

    writeln;

  end;

  Readln;

end.

موفق باشی

sima_6600

arashrj