SinTag Program pohon PascaL

Program Belah_Ketupat;
uses wincrt;

var
n,a,b,c,d,e,R: integer;

Procedure Masukan;

Begin
write (' Masukan Batas Nilai Akhir : '); read(n);
writeln;
writeln;
end;

Procedure atas;
Begin
for a:=1 to n do
Begin
c:=0;
for b:=a downto 1do
Begin
gotoxy(40-3*c,a+6); write(b);
gotoxy(40+3*c,a+6); write(b);
c:=c+1;
end;
end;
end;

Procedure Bawah;
Begin
for d:=n-1 downto 1 do
Begin
c:=0;
R:=R+1;
for e:=d downto 1 do
Begin
gotoxy(40-3*c,R+n+6); write(e);
gotoxy(40+3*c,R+n+6); write(e);
c:=c+1
end;
end;
end;

Begin
Masukan;
write(' Deret Angka Belah Ketupat : ');
Atas;
Bawah;
end.