Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  69
Language: PASCAL
Code:
program abc;
var
  i,j,k:integer;
begin
  readln(i);
  For j:=i downto 1 Do
  begin
  For k:=i to 1 Do
  write('*');
  writeln
  end
end.          
          
          
          
          
Comments: