Advertisement
Guest User

Untitled

a guest
Sep 21st, 2019
185
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. var
  2. n,i,j,k,f:longint;
  3. begin
  4. readln(n);
  5. if n = 1 then
  6. writeln('*');
  7. if n > 1 then
  8. begin
  9. f:=n-2;
  10. for i:= 1 to n-1 do
  11. write(' ');
  12. for i:= 1 to n do
  13. write('*');
  14. writeln;
  15. for i:= 1 to n-2 do
  16. begin
  17. for j:= 1 to f do
  18. begin
  19. write(' ');
  20. end;
  21. f:=f-1;
  22. write('*');
  23. for k:=1 to n-2 do
  24. write(' ');
  25. write('*');
  26. writeln;
  27. end;
  28. for i:=1 to n do
  29. write('*');
  30. writeln
  31. end;
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement