Паскаль?
da
P = (2*a)*2; Диагональ равна sqrt(sqr(a)+sqr(a)); S = a * a; P =( 2 * sqrt(S))*2; Осталось обернуть все в программу.