процедуры функции и масивы

[bunny]

ну ладно, извините, я больше не буду, хотела просто быстренько узнать..вроде тема та же

[asres]

Спасибо ребят мне решили!
Вот код-можёт кому нить понадобиться


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
mass=array[1..3] of real;

Var
tr1 : mass=(1,1,1);
tr2 : mass=(2,2,2);
tr3 : mass=(3,3,3);

s,s1,s2,s3: real;

function Geron(x,y,z:real): real;
var
p:real;

begin
P:=(x+y+z)/2;
Geron:=sqrt(p*(p-x)*(p-y)*(p-z));

end;

Begin

s1:=Geron(tr1[1],tr1[2],tr1[3]);
s2:=Geron(tr2[1],tr2[2],tr2[3]);
s3:=Geron(tr3[1],tr3[2],tr3[3]);
s:=s1+s2+s3;
writeln('Zagalna plosha=',s:6:2);

readln;

End.