uses wincrt;
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
begin
write ('*');
end;
writeln;
end;
end.
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
begin
write ('*');
end;
writeln;
end;
end.
Langganan:
Posting Komentar (Atom)
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar