YILDIZ-4

---*---
---*---
---*---
*******
---*---
---*---
---*---

İÇİN;


PROGRAM YILDIZ;USES CRT;VAR i, j :INTEGER;
BEGINCLRSCR;
FORi:=1 TO 7 DO
BEGIN
FOR j:=1 TO 7 DO
BEGIN
IF (j=4) OR (i=4) THEN
WRITE('*')
ELSE
WRITE('-');
END;
WRITELN();
END;

READLN;
END.