функции и процедуры

[niziriska]

первю просто надо с пом.процедурки...
я пнимаю что с функцией привычней)

[maladoy]

program SMN;
uses crt;
var smn1,b,s1:real;
procedure str(a:real; var s:real);
var p:real;
begin
 p:=(a+2*a/Sqrt(3))/2;
 s:=sqrt(p*(p-a)*(p-a/Sqrt(3))*(p-a/Sqrt(3)));
end;
begin
writeln('vvedite a');
readln(b);
str(b,s1);
smn1:=s1*6;
writeln(smn1:4:2);
readln;
end.

[capta1n]

запросто ) тоже самое, только дополнительная переменная в разделе описаний формальных переменных в процедуре