program swastika;

uses crt;

var
i,j,n:integer;

begin
clrscr;
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if ((i<=(n div 2+1)) and (j=1)) or ((i>=(n div 2+1)) and (j=n))
or ((j<=(n div 2+1)) and (i=n)) or ((j>=(n div 2+1)) and (i=1))
or (i=(n div 2+1)) or (j=(n div 2+1)) then
write(’*')
else
write(’ ‘;
end;
writeln;
end;
readln;
end.

Posting Terkait

• Tidak ada Posting Terkait