Pohon Huruf

program pohon_huruf;
uses wincrt;
var
n : integer;
procedure Bagian_Atas;
var k, y, z : integer;

begin
for k:= 1 to n do
begin
writeln('');
for z:=1 to n-k do
begin
write(' ');
end;

for y:=1 to k do
begin
if y=n then
write(' ')
else
write ('*');
end;
for y:= k-1 downto 1 do
begin
write ('*');
end;
end;

end;
procedure Bagian_Bawah;
var k, y, z : integer;
begin
for k:= n-1 downto 1 do
begin
writeln('');
for z:=1 to n-k do
begin
write(' ');
end;

for y:=1 to k do
begin
write ('*');
end;

for y:= k-1 downto 1 do
begin
write ('*');
end;
end;
end;
var
lagi :char;
Label A,B,C;
begin
A : clrscr;
writeln (' Program Tampil Bintang' );
writeln (' by. T-plus ');
writeln (' ------------------------------ ');
writeln ('');
write('Masukkan pnjng sisi : ');
readln(n);
writeln ('');
writeln ('Hasilnya :');
Bagian_Atas;
Bagian_Bawah;

writeln ('');
writeln ('');
C : writeln ('Inputkan lagi ? (y/t)');
readln(lagi);
case (lagi) of
'y','y' :goto A;
't','t' :goto b;
else
writeln;
writeln ('Pilihan hanya y/t !');
goto c;
readln;
B : end;
writeln ('');
writeln ('Terimakasih... ^_^');
end.