Create losangeDiag.pas