Как написать программу в паскале ведя значения синуса и косинуса, далее определить к какой части системы координат относится синус и косинус ?

var sinx,cosx:real; begin; writeln('Введите sin:'); readln(sinx); writeln('Введите cos:'); readln(cosx); if (sin(sinx)>0) and (cos(cosx)>0) then writeln('1'); if (sin(sinx)>0) and (cos(cosx)<0) then writeln('2'); if (sin(sinx)<0) and (cos(cosx)<0) then writeln('3'); if (sin(sinx)<0) and (cos(cosx)>0) then writeln('4'); end.