Найдите cos а, если sin а = 12/13

2)Пишу на QBasic
INPUT A
IF A MOD 3 =0 THEN
PRINT "да"
ELSE
PRINT "нет"
END IF
3)
INPUT A
INPUT B
IF A>B THEN
C=A+B
A=A*B
B=C
ELSE
C= A+B
B=A*B
A=C
END IF