uses crt;
var a,b,c,d,e,i,j:integer;
begin
CLRSCR;
write('masukkan angka:');readln(a);
writeln;
b:=a-1 ; c:=1;
for i:= 1 to a do
begin
for j:=1 to b do
begin
write(' ');
end;
for j:=1 to c do
begin
write('*');
end;
writeln;
b:=b-1;c:=c+2;
end;
d:=1;e:=c-4;
for i:= 1 to a-1 do
begin
for j:= 1 to d do
begin
write(' ');
end;
for j:= 1 to e do
begin
write('*');
end;
writeln;
d:=d+1; e:=e-2;
end;
readkey;
end.
hasil :
*
***
*****
*******
*****
***
*
mantab
BalasHapussaya mau belajar FPC