obszar Pascal
area := sqrt(s * (s - a)*(s-b)*(s-c));
Clean Caterpillar
area := sqrt(s * (s - a)*(s-b)*(s-c));