Ответ:

Объяснение:

var  

 P,S:real;

 begin

   writeln('Введите значение периметра квадрата');

   readln(P);

   S:= P*P/16;

   writeln('Площадь квадрата = '+S);

 end.

var  

 b,S:real;

 begin

   writeln('Введите длину грани куба');

   readln(b);

   S:= 6*Sqr(b);

   writeln('Площадь поверхности куба = '+S);

 end.