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

[sima_6600]

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


%%%%%%%%%%%%%%%%%% 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

[arashrj]

سلام

کد:

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.

موفق باشی