Cara Membuat Belah Ketupat di Pascal

Haloo kawan - kawan, hari ini saya akan membagikan cara membuat belah ketupat di pascal
silahkan dilihat

uses crt;
var a, b, input :integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to 5-a do
begin
write(' ');
end;
for b:= 1 to 2*a-1 do
begin
write('*');

end;
writeln;
end;

for a:= 3 downto 0 do
begin
for b:= 3 downto a do
begin
write(' ');
end;
for b:= 1 to 2*a+1 do
begin
write('*');
end;
writeln();
end;
readkey
end.