uses crt;
var
x,y,z : integer;
begin
clrscr;
write ('masukan jumlah baris: ');
readln(x);
for y:=1 to x do
begin
for z:=1 to x-y do
begin
write(' ');
end;
for z:=1 to y do
begin
write('* ');
end;
writeln(x);
end;
readln(x);
end.
http://Layla-innocent.blogspot.com
Tidak ada komentar:
Posting Komentar