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

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) then writeln ('4') ;

end.