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