Найти среднее арифметическое площади и диагонали квадрата по введенному периметру

Площадь квадрата находится по формуле s=a², где a - сторона квадрата, длина диагонали квадрата d равна a√2. Периметр квадрата Р равен 4a, откуда a=P/4 Среднее арифметическое площади и диагонали (какой все же бред: соединять меры площади и длины!) может быть определено следующим образом. [latex]\displaystyle m= \frac{s+d}{2}= \frac{a^2+a \sqrt{2}}{2}= \frac{a(a+ \sqrt{2})}{2}; \ a= \frac{P}{4}=0.25P; \\ m= \frac{P}{8}( \frac{P}{4}+\sqrt{2}) [/latex] var   P,m:real; begin   Write('Введите периметр квадрата: '); Read(P);   Writeln('Среднее площади и диагонали равно ',P/8*(P/4+sqrt(2))) end. Тестовое решение: Введите периметр квадрата: 45 Среднее площади и диагонали равно 71.2362012883487