.."segitiga bintang"..

..program segitiga bintang dalam bahasa pascal..

"gimana ya cara bikinnya,??!?!!"

"hhmmm.. pingin tau,? klik adja read more .."

program segibintang;
uses wincrt;
var
n,i,j : integer;

begin
for i:=1 to 5 do
begin
for j:=1 to i do
write ('*');
writeln;
end;

for i:=4 downto 1 do
begin
for j:=1 to i do
write ('*');
writeln;

end;
end.