program cetak_n;
uses wincrt;
var
   i,j,n:integer;

begin
writeln('------------------------------');
writeln('   Program mencetak huruf N   ');
writeln('------------------------------');
writeln;

write('Masukkan angka : ');readln(n);
writeln;
writeln('Hasilnya : ');
writeln;
for j:=1 to n do
    begin
           
        for i:=1 to n do
            begin
                 if (i=1) or (j=i) or (i=n) then
                write('*')
                else
                write(' ');
            end;
        writeln;

    end;
end.


Semoga Bermanfaat.....