7. Membentuk Kubus dari Bintang dan Bulatan

Program for_binbul;
{membuat gambar seperti: * o * o *
                         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+j)mod 2=0 then
             write('*',' ')
          else
              write('o',' ');
          writeln;
          end;
readln;
end.