Информатика 9 ! написать программу, которая выводит на экран сообщение, в какую четверть координатной плоскости попала точка с заданными координатами. координаты точки вводятся с клавиатуры. например, x=4, y=6 она должна вывести "точка лежит в 1 четверти"

Program z1;
var (x, y):real;
begin
real (x; y);
if (y> 0, x> 0) then write('1 chetvert') and (y> 0, y <0) then write ('2 chetvert') and (y<0, x <0) then write ('3 chetvert') and (y <0, x> 0) then write ('4 chetvert');
end.
вместо слова четверть можешь ничего не ставить но цифру оставляешь.дай 40 пкт;)