ВШ
Витя Шаталов
Паскаль выдает ошибку, Неверное Выражение, где ошибка
паскаль выдает ошибку :НЕВЕРНОЕ ВЫРАЖЕНИЕ
program z1;
var x,y :real;
begin
write ('введите x');
readln(x);
write ('введите y');
readln(y);
if (y<=2x+1) and (y<=-2x+1) and (y>=-2x-1) and (y>=2x-1) <-------на это ругается
then
wtiteln ('точка принадлежит');
else
writeln('точка не принадлежит');
end.