Contoh Program Looping

Program Belah ketupat ^-^

program belah_ketupat;
uses wincrt;
var
 x,y,z:integer;
begin
readln (y);
for x:=1 to y do
begin for z:=y downto x do
write (' ');
for z:=1 to x*2-1 do
write ('*');
writeln ;
end;
for x:=y downto 1 do
begin
for z:=y downto x do
write (' ');
for z:=1 to 2*x-1 do
write ('*');
writeln;
end;
end.