Contoh Program Deret Bintang pada Pascal

Berikut akan saya bagikan source codenya......

uses crt;
var
a,b,c,d,e,f:integer;
begin
clrscr;
writeln('=======Deret Bintang=======');
writeln;
write('masukan nilai yang ingin di jadikan deret = ');readln(a);
for b:= 1 to a do begin
for c:= 1 to b do
write('*');
writeln;
end;
begin
c:= a - 1;
for d:= c downto 1 do begin
for e:= 1 to d do
write('*');
writeln;
end;
readln;
readln;
end;
end.


Download programnya (DISINI)