Символы: t,o,b,e,r,n -6 шт+ пробел=7. 3 бит достаточно для кодирования 1-й буквы
18 символов в сообщении * 3=54 бита
Program z1;
var x, y: real;
begin
if ((x*x+y*y<=1) and (y>=x)) or ((x*x+y*y<=1) and (x<=0)) then writeln('принадлежит')
else writeln('не принадлежит');
end.
Дискриминант равен квадрату коэффициента при переменной первой степени. При чем здесь "div"? В принципе поиск корней выполнен неправильно
var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.