Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
128
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. var
  2. a,n,i,b:integer;
  3. begin
  4. read(a);
  5. for i:=1 to a do begin
  6. for n:=1 to a-i do begin
  7. write(' ');
  8. end;
  9. for b:=1 to i do begin
  10. write('*');
  11. end;
  12. writeln;
  13. end;
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement