begin
  var flag := true;
  while flag do
  begin
    System.Console.Clear;
    var x := ReadLnInteger('Введите координату точки по оси X:');
    var y := ReadLnInteger('Введите координату точки по оси Y:');
    WriteLn((-1 <= x) and (x <= 5) and (-2 <= y) and (y <= 4) ? 'Точка принадлежит квадрату :)' : 'Точка не принадлежит квадрату :(');
    flag := ReadLnBoolean('Ввести новые координаты? ("TRUE" / "FALSE"):');
  end;
end.