Помогите составить программу на Паскале по фото

 var
  x, y: real; 
  q: array[boolean, boolean] of integer = ((3,2), (4,1));
begin
  readln(x, y);
  if (x=0) or (y=0) then
    writeln('не могу решить')
  else
    writeln(q[x>0, y>0]);
end.