Lahko kdo pomaga

Napišite program, ki bo izrisal naslednji lik dvojček, katerega dimenzijo (neke vrste višino) vpisemo preko tipkovnice.
Primer za vpisano dimenzijo 5 (višina celega lika je potem 5+5+1):


* *
*** ***
** ** ** **
*** *** *** ***
**** **** **** ****
***** ***** ***** *****
**** **** **** ****
*** *** *** ***
** ** ** **
*** ***
* *

* *
*** ***
** ** ** **
*** *** *** ***
**** **** **** ****
***** ***** ***** *****
**** **** **** ****
*** *** *** ***
** ** ** **
*** ***
* *

To je čist v izi. Naredit moraš dve zanki, ki sta ena v drugi. Pri tem moraš paziti ali je število liho ali sodo. če je število sodo moraš število vrstic deliti z dva, če je liho pa moraš št. vrstic delit z dva in prištet 1.

Naprimer.

MODULE Test;
IMPORT In,Out;

PROCEDURE Naredi *;
VAR a,i,j,x,st:INTEGER;
BEGIN
In.Open;
In.Int(a);
st:=0;
IF a MOD 2=0 THEN
a := a DIV 2;
FOR i:=0 TO a DO
FOR j:=1 TO i DO
st:=st+1;
Out.Int(st,4);
END;
Out.Ln;
END;
FOR i:=0 TO a DO
FOR j:=1 TO a-i DO
st:=st+1;
Out.Int(st,4);
END;
Out.Ln;
END;
ELSE
a:= (a DIV 2)+1;
FOR i:=1 TO a DO
FOR j:=1 TO i DO
st:=st+1;
Out.Int(st,4);
END;
Out.Ln;
END;
FOR i:=1 TO a DO
FOR j:=1 TO a-i DO
st:=st+1;
Out.Int(st,4);
END;
Out.Ln;
END;
END;
END Naredi;
END Test.

Tako....