6. Mebentuk Kubus dari Bintang dan Bulatan

program for_bin2;
{membuat gambar seperti: * * * * *
                         * * * * o
                         * * * o o
                         * * o o o
                         * o o o o}
Uses crt;
var
   i,j:integer;
begin
clrscr;
       for i:=1 to 5 do
       begin
            for j:=1 to 5 do
            if i<=6-j then
               write('*',' ')
            else
                write('o',' ');
            writeln;
            end;
readln;
end.