Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  gay
Language: PASCAL
Code:
program 6a;
var
i,j,num:integer; 
begin
 readln(num);
 for i:=num downto 1 do
  begin
   for j:=i downto 1 do 
   write('*');
   writeln
  end
end.

          
          
          
          
          
          
          
Comments: