Astoko's

program BELAH_KETUPAT;
uses wincrt;
var
x,y,k,z : integer;
begin
write('Masukkan batas nilai : ');readln(x);
write('Hasil belah ketupat : ');
for k:=1 to x do
begin
writeln(' ');
for z :=1 to x-k do
begin
write(' ');
end;
for y := k downto 1 do
begin
write(y,' ');
end;
for y:=1 to k do
begin
write(y,' ');
end;
end;
for k:=x-1 downto 1 do
begin
writeln(' ');
for z:=1 to x-k do
begin
write(' ');
end;
for y:=k downto 1 do
begin
write(y,' ');
end;
for y:=1 to k do
begin
write(y,' ');
end;
end;
end.