Праграмны дэтэктар вайны

if (Sqr(Sin(A)) + Sqr(Cos(A)) > 1) then
raise EWar.Create('At least!');