Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
После строки uses Robot нужно поставить ;
Т.е. первая строка должна иметь вид uses Robot;
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
Посчитаем кол-во букв в предложении,(18),
Теперь18*2=36 байтов
Ответ:36 байтов