Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program pira;
- uses crt;
- var
- i,j,k:integer;
- begin
- i:=5;
- while(i<=5) do
- begin
- j:=1;
- while(j<=i)do
- begin
- writeln(j,'*');
- j:=j+1
- end;
- //write(' ');
- i:=i+1;
- end;
- k:=9;
- while (k>=1) do
- begin
- k:=(i*2)-2;
- while(k>=1)do
- begin
- write('*');
- k:=k-1;
- end;
- writeln;
- end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment