5981 bit = 5981/8 = 747,63 bytes
867245 / 747.63 = 1159,99 bytes
ответ
1159 байт
<span>SCREEN 7
h = 10
FOR k = 1 TO 10
x1 = 160 - 10*k
x2 = 160 + 10*k
y1 = 40 + h*k
y2 = y1 + h
LINE (x1, y1)-( x2, y2), 1, B
NEXT k</span>
Программа состоит из алгоритмов... Отвечаю не точно!!!
(1+х)^22:
Power(1+x,22);
Корень квадратный из 1+х^23:
sqrt(power(1+x,23));
<span>cos^2 x^2:
sqr(cos(x*x))
</span>
var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.