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)