var
s,a:real;
begin
write('vvedite dlinny A= ');
readln(a);
s:=(sqrt(3)*sqr(a))/4;
writeln(s:2:2);
end.
Объяснение: ручной ввод стороны
var
s,a:real;
begin
write('vvedite dlinny A= ');
readln(a);
s:=(sqrt(3)*sqr(a))/4;
writeln(s:2:2);
end.
Объяснение: ручной ввод стороны