uses crt;
var
i,x,a,banyak:integer;
begin
clrscr;
write('masukan jumlah bilangan'); readln(banyak);
begin
for i:=banyak downto 1 do
begin
for a:=1 to i do
begin
write(' ');
end;
for x:=1 to banyak do
begin
write('*');
end;
writeln;
end;
end;
writeln;
readkey;
end.
Post a Comment
This blog needed you to understand the word spam - never spam on this blog, although i will not moderate all of it, but you will learn it yourself, educate yourself