Запрашивая у пользователя углы (b градусов), пока не введен 0, составить таблицы тригонометрических функций этих углов- Basic(Бейсик)

pi=3.14159
DO
INPUT"vvedite ugol ",b
IF b<>0 THEN PRINT "sin(x)=";sin(b*pi/180);" cos(x)=";cos(b*pi/180);" tg(x)=";tan(b*pi/180);" ctg(x)=";1/TAN(b*pi/180) 
LOOP UNTIL b=0