program bintang2

Program pp13;
uses wincrt;
var    i,j,n:integer;
begin
for i:=1 to 5 do
begin
gotoxy(i,i);
for j:=(2*n)-i to 1 do
begin


write('*');
end;
writeln;
end;
for i:=4 downto 1 do
begin
gotoxy(6-i,10-i);

end;
end.

hasilnya nanti seperti ini... :3

Program pp13;
uses wincrt;
var    i,j,n:integer;
begin
for i:=1 to 5 do
begin
gotoxy(i,i);
for j:=1 to (2*i)-1 do
begin
write('*');
end;
writeln;
end;
for i:=4 downto 1 do
begin
gotoxy(6-i,10-i);

end;
end.


tar jadinya::::

 

Program pp13;

uses wincrt;
var    i,j,n:integer;
begin
for i:=1 to 5 do
begin
gotoxy(i,i);
for j:=1 to 5 do
begin
write('*');
end;
writeln;
end;
for i:=1 downto 5 do
begin
gotoxy(5-i,i+5);

end;
end.

hasilnya:::::