unit Haromszog;
{$mode objfpc}
{$M+}
interface

Type
THaromszog = Class
  published
	function szamitTerulet:Integer;
end;

implementation

function THaromszog.szamitTerulet(): Integer;
begin
	szamitTerulet := 1;
end;

end.