Согласен, а по сабжу:
Ошибка в определении переменных:
s#= (Sqr(((yt1#-yt0#)* (zt2#-zt0#)-(zt1#-zt0#)* (yt2#-yt0#))^2+((zt1#-zt0#)* (xt2#-xt0#)-(xt1#-xt0#)* (zt2#-zt0#))^2+((xt1#-xt0#)* (yt2#-yt0#)-(yt1#-yt0#)* (xt2#-xt0#))^2))/2
s1#= (Sqr(((yt1#-yt0#)* (zt#-zt0#)-(z1t#-zt0#)* (yt#-yt0#))^2+((zt1#-zt0#)* (xt#-xt0#)-(xt1#-xt0#)* (zt#-zt0#))^2+((xt1#-xt0#)* (yt#-yt0#)-(yt1#-yt0#)* (xt#-xt0#))^2))/2
s2#= (Sqr(((yt#-yt0#)* (zt2#-zt0#)-(zt#-zt0#)* (yt2#-yt0#))^2+((zt#-zt0#)* (xt2#-xt0#)-(xt1#-xt0#)* (zt2#-zt0#))^2+((xt#-xt0#)* (yt2#-yt0#)-(yt#-yt0#)* (xt2#-xt0#))^2))/2
s3#= (Sqr(((yt1#-yt#)* (zt2#-zt#)-(zt1#-zt#)* (yt2#-yt#))^2+((z1t#-zt#)* (xt2#-xt#)-(xt1#-xt#)* (zt2#-zt#))^2+((xt1#-xt#)* (yt2#-yt#)-(yt1#-yt#)* (x2#-x#))^2))/2
Переменные yt1#,yt0#,zt2#,zt0#,zt1# и тд не определены
Вообще советую пользоваться IDE с подсветкой синтаксиса, тогда таких глупых ошибок не будет