[Rjkzy]

моя копейка - площадь сегмента

Код:

unit SegmentArea;


interface
  uses Windows,SysUtils;

implementation
function SegmentS(corner: SHORT): Real;
begin
  Result:= sqr(corner - sin(corner))/2;
end;
end.

и каждую функцию - в отдельный юнит!