program rhombus_area

! program oblicza pole i obwod rombu przy znanej dlugosci bokow
! oraz wartosci kata pomiedzy nimi

implicit none

real :: a, alfa_st, alfa_rad
real :: area, perimeter
! sprytny sposob na znalezienie dosyc dokladnej wartosci liczby pi
real, parameter :: pi = 4*atan(1.0d0)

write(*,*) 'Podaj dlugosc boku oraz wartosc kata (w stopniach)'
read(*,*) a, alfa_st

!sprawdzenie czy dlugosc boku jest mniejsza od zera

if (a.gt.0.0) then
	!przeliczenie stopni na radiany		
	alfa_rad = alfa_st*(2*pi/360.0)
	
	!obliczenie obwodu	
	perimeter = 4*a

	!obliczanie pola
	area = a*a*sin(alfa_rad)

	write(*,*) 'Obwod rombu wynosi', perimeter, 'a pole jest rowne', area

else
	write(*,*) 'Dlugosc boku jest mniejsza od zera!!!'
end if

end