Написать в паскале программу: определить, принадлежит ли точка с координатами x и y по графику (в прикрепляемом файле)

Программа:

var x,y: real;

begin

write('x, y: ');

readln(x,y);

if (y>=x*x)and(x<=1)

then writeln('принадлежит')

else writeln('не принадлежит');

end.

Пример:

x, y: 0.5 2

принадлежит

Переведём всё в двоичную систему счисления и уравняем длины записей:
5E_16 = 0101 1110_2 (каждая цифра в 16-ой сс соответствует четырёх цифрам в 2 сс)
111011_2 = 0011 1011_2
117_8 = 001 001 111_2 = 0100 1111_2 (каждая цифра 8сс соответствует трём цифрам в 2сс)
215_10 = 128 + 64 + 16 + 4 + 2 + 1 = 2^7 + 2^6 + 2^4 + 2^2 + 2^1 + 2^0 = 1101 0111_2.

Итак, надо сравнить 0101 1110, 0011 1011, 0100 1111, 1101 0111.
0011 1011 < 0100 1111 < 0101 1110 < 1101 0111
111011_2 < 117_8 < 5E_16 < 215_10

Переменные:
общий вид:
var <имя переменной> : <тип переменной>;

1. В имени переменной не может быть пробелов
2. Имя переменной не может начинаться с цифры
3. Нижнее подчеркивание разрешено

Константы:
общий вид:
const <имя константы> = <значение>;

Для константы действуют те же правила, что и на переменные.

Программа:
Общий вид:
<процедуры>
<функции>
<константы>
<переменные>
begin
<тело программы>
end.

Этот порядок нарушать нельзя, но некоторые моменты можно пропустить