Ekrana carpi yazdirilmasi

program yildiz;
var i,j : integer;
begin
for i := 1 to 15 do
begin
for j := 1 to 15 do
begin
if (i = j) or (i + j = 16) then
write ('*') else write('-');
end;
writeln;
end;
readln;
end.