program ucgen_alani
real::a,b,c,s,alan
print*,"Ilk kenari giriniz:"
read*,a
print*,"Ikinci kenari giriniz:"
read*,b
print*,"Ucuncu kenari giriniz:"
read*,c
s=(a+b+c)/2.0
alan=sqrt(s*(s-a)*(s-b)*(s-c))
print*
print*,"Ucgenimizin alani:"
print*,"Alan= ",alan
end program ucgen_alani