Program Pola Kotak Penuh

program kotak;
uses crt;
var
baris,kolom,n:integer;
begin
clrscr;
write('Masukan nilai n : ');
readln(n);
writeln;
for baris:=1 to n do
begin
for kolom:=1 to n do
begin
write('*');
end;
writeln;
end;
readln;
end.


Outputnya :

misal n : 5

*****
*****
*****
*****
*****