START

Podaj a b i c większe od 0

a+b>c i a+c>b i b+c>a

Nie ma rozwiązań

Nie

Tak

Oblicz pole P:=sqrt[p(p-a)(p-b)(p-c)]

STOP

Wyświetl wynik P

Oblicz p:=1/2(a+b+c)

STOP

---