mqnoy

Untitled

Dec 3rd, 2016
186
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. program pira;
  2. uses crt;
  3.  
  4. var
  5. i,j,k:integer;
  6.  
  7. begin
  8. i:=5;
  9. while(i<=5) do
  10. begin
  11.  
  12. j:=1;
  13. while(j<=i)do
  14. begin
  15.  
  16. writeln(j,'*');
  17. j:=j+1
  18.  
  19. end;
  20.  
  21. //write(' ');
  22. i:=i+1;
  23. end;
  24.  
  25. k:=9;
  26. while (k>=1) do
  27. begin
  28. k:=(i*2)-2;
  29. while(k>=1)do
  30. begin
  31.  
  32. write('*');
  33. k:=k-1;
  34. end;
  35.  
  36. writeln;
  37. end;
  38.  
  39.  
  40. readln;
  41.  
  42. end.
Advertisement
Add Comment
Please, Sign In to add comment