obszar Pascal

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