SHARE
TWEET

Untitled

a guest Sep 21st, 2019 112 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top