Выделить и растянуть область,которую вы хотите масштабировать(если вы об этом)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
Var
x,y:real;
begin
Write('Введите координаты точки: ');
Read(x,y);
if (y>=-x*x) and (y>=-x-2) and (x<=0) then Writeln('Входит')
else Writeln('Не входит')
end.
Тестовое решение
Введите координаты точки: -1 -0.5
Входит
связь многим ко многим потому что разные типы под одним id