YILDIZ-4

aynı şeklin ayarlısı:

PROGRAM YILDIZ;
USES CRT;
VAR i, j, a :INTEGER;

BEGIN
CLRSCR;

WRITELN('KLAVYEDEN TEK BIR SAYI GIRINIZ');
READ(a);

FOR
i:=1 TO a DO
BEGIN
FOR j:=1 TO a DO
BEGIN
IF (j=(a+1)/2) OR (i=(a+1)/2) THEN
WRITE('*')
ELSE
WRITE('-');
END;
WRITELN();
END;

READLN;
READLN;
END.