program menampilkan bintang bentuk persegi

program bintang_persegi;

uses wincrt;

var n, a, b, c : integer;

begin
      clrscr;
      write ('Masukkan angka : ');readln(n);

      for a := 1 to n do
      begin
            write ('*');
      end;

      writeln;
      for b := 2 to n-1 do
      begin
            write ('*');
            for c := 1 to n-2 do
            begin
                  write (' ');
            end;

            write ('*');
            writeln;
      end;

      for a := 1 to n do
      begin
            write ('*');
      end;

      readln;
end.


layout 

Share On