برنامه كه ستاره ها را به صورت مثلثي چاپ مي كند

[pooya]

کد:

uses
  crt;
var
      n:integer;
    
begin
    
       clrscr;
       writeln('enter count of rows');
       readln(n);
       clrscr;
       star(n);

       readln;
  
ebd.

procedure star(n:integer);
var
   i,j:integer;
bagin
      
      for i=1 to n do begin  { make rows}
              
               for j=1 to n-i do
                        write(' ');
               for j=1 to 2*i-1 do
                        write('*');    
    
      end;
end;