program bintang 7*7

program bintang1;
uses crt;
var
n,y,z : integer;
begin clrscr;
write ('===program bintang===');
readln (n);
writeln (' ');

for y := 1 to n do begin
for z := 1 to n do begin
write (' * ');
end;
writeln;
end;

writeln (' ');
writeln ('by:dolpiana yolanda');
readln;
end.