Дана сторона в, правильного семиугольника. составить программу для нахождения радиуса вписанной окружности r, и площади семиугольника s, по формулам: r=b/2 (1+sqr2) и s=8*r^2*sqr3-2sqr2

Var r,s,b:real; 
begin readln (b);
r:=b/2*(1+sqr(2));
s:=8*sqr(r)*sqr(3)-(sqr(2)*2);
writeln (r);
writeln(s);
end.