Нужна помощь по Free Pascal или Borland Pascal

Задано точку з координатами х та у. Визначити, в якій координатній чверті вона розміщена.
Формат вхідних даних

З клавіатури вводяться цілі числа х та у, які розділені одним пробілом (-1000 < х, у < 1000).
Формат вихідних даних

На екран виводиться одне число – координатна чверть або 0, якщо визначити однозначно чверть не можна

Добавлено через 01:16 сек.
Кто поможет?

var y = 10, x = 10; (y>0)?((x>0)?1:2):( (x>0)?4:3);

смысл понятен
код на JavaScript

Мнеб на Паскале

var x,y:int64;
begin
readln(x,y);
if x>0 then
begin
  if y>0 then
    writeln(1)
  else
    writeln(4);
end
else
begin
  if y>0 then
    writeln(2)
  else
    writeln(3);
end;
if(x=0)or(y=0)then
  writeln(0);
end.

Старый добрый паскаль ... бррр..