Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
Ну.. Наверное математическая (формальная) логика
16 * 64 = 1024 (2¹⁰)символов на странице
1024*16=16384 (2¹⁴)бит
16384:8=2048(2¹¹)байт
2048:1024=2кб
1 страница=2КБ
10 КБ : 2 КБ = 5 страниц