%include "rw32-2018.inc"

section .data
s_angle db "Zadejte uhel alfa [rad]",EOL,0
s_edge  db "Zadejte delku protilehle strany [cm]",EOL,0
s_area  db "Obsah kruhu je ",0
s_units db " cm^2",EOL,0

section .text
CMAIN:
    ; inicializace jednotky FPU

    ; nacteni uhlu
    mov esi, s_angle
    call WriteString
    call ReadFloat

    ; nacteni strany
    mov esi, s_edge
    call WriteString
    call ReadFloat

    ; S = pi * (a / (2 * sin(alfa)))^2

    ; vypis vysledku
    mov esi, s_area
    call WriteString
    call WriteDouble
    mov esi, s_units
    call WriteString

    ; odstraneni posledni hodnoty

    xor eax, eax
    ret