YuukiCoder Как я понял надо проверить находится ли точка в кубе:
Для куба сделал, для круга не придумал как:
var cubeSize:integer;
var cubeCordX, cubeCordY:integer;

var dotX, dotY:integer;
begin
readln(cubeSize); //Считываем размер куба
readln(cubeCordX, cubeCordY); //Считываем координаты куба относительно его левой верхней точкиreadln(dotX, dotY); //Считываем координаты точки
if ((dotX > cubeCordX) and (dotX < (cubeCordX + cubeSize))) and ((dotY > cubeCordY) and (dotY < (cubeCordY + cubeSize))) then writeln('точка принадлежит кубу')else writeln('точка не принадлежит кубу');
end.

vladmor 1. Решение для квадрата:

var x,y:real;
begin
  write('Введите x,y: ');readln(x,y);
  if (x<=5) and(x>=-5) and (y<=5) and (y>=-5) then writeln('Внутри')
    else writeln('Не попали')
end.

Тест №1
Введите x,y: 10 5
Не попали

Тест №2
Введите x,y: 4 3
Внутри



2. Добавлю решение для круга. Если сумма квадратов координат введенной точки меньше или равна квадрату радиуса круга, то точка находится внутри круга или на окружности:

var x,y,r:real;
begin
  r:=2;
  write('Введите x,y: ');readln(x,y);
  if sqr(x)+sqr(y)<=sqr(r) then writeln('Внутри')
    else writeln('Не попали')
end.

Тест №1
Введите x,y: 3 1
Не попали

Тест №2
Введите x,y: 1 1
Внутри