[Konrad]

Код:

Function SmaZz(m:real;n:real;k:real):real;
var r:real;
begin
r:=(m+n+k)/2;
SmaZz:=sqrt(r*(r-m)*(r-n)*(r-k));
end;

И, кстати, добавь проверку, иначе может получиться корень(-1*...)