Объяснение:
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.
