Скачай антивирусник Avast и проверь всё
<span>Ввести X</span>
<span>Ввести Y</span>
<span>R=6</span>
<span>A=2</span>
<span>Если Х²+Y²>R² То
</span><span> "Не
принадлежит"</span>
Иначе
<span>
Если X<A То
</span><span> "Не
принадлежит"</span><span>
Иначе</span>
<span> "Принадлежит"
</span><span> Конец Если</span>
<span>Конец Если</span>
Если карандаш выбирали наугад и информация, что достали зеленый карандаш, несет 2 бита, то вероятность того, что достали зеленый карандаш, была равна 1/2^2 = 1/4. Значит, в коробке было 1/4 * 32 = 8 зеленых карандашей
Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.