Если нужна программа, то вот
Var
s: real;
a: integer;
begin
readln(a);
s := 4*sqrt(a);
writeln(s);
end.
<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>
Program pizma;
var a,b,c,v,sp,sb:real;
begin
read(a);
read(b);
read(c);
v:=a*b*c;
sb:=4*с*(a+b);
sp:=2*(a*b+b*c+a*c);
write('объем=',v,' площадьSb='sb,' и SP=',sp);
end.
《》это скобки <> а этознак больше меньше