Var x,y:real; begin writeln('Введите координаты точки'); readln(x,y); if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True') else writeln('False'); <span>end.</span>
Div - это целочисленное деление, деление без остатка? Тогда i - целое число, делимое j - целое число, делитель а остаток от деления будет i - j * (i div j)