1580kilobautпо идее должно быть до 1580 килобайтов
128*8 = 1024 - вес одной страницы в бит.
1024*80 = 81920 - вес всего текста
81920 : 30720 = 2.66 секунды
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
Входит
Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.