(PASCAL) --> PENGULANGAN BINTANG

Program Pengulangan_Bintang;
uses wincrt;
var i, n : integer;
begin
writeln ('PENGULANGAN BINTANG');
writeln;
for i:= 5 downto 1 do
    begin
    for n:= i downto 1 do
    write('*');
    writeln;
    end;
end.