Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program PFLOWER;
- var i, j, n:integer;
- Begin
- readln(n);
- for i:=1 to n do
- begin
- for j:=1 to n do
- begin
- if j > i then write('# ')
- else write('* ');
- end;
- for j:=1 to n do
- begin
- if j <= n - i then write('# ')
- else write('* ');
- end;
- writeln;
- end;
- readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment