Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно.
Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D
ответы пишу в форме таблицы
X--Y--Z--1--2--3--4
0--0--0--1--0--0--1
0--0--1--0--0--1--1
0--1--0--0--0--1--1
0--1--1--0--0--1--1
1--0--0--0--0--1--1
1--0--1--0--0--1--1
1--1--0--0--0--1--1
1--1--1--0--1--1--0
Рисование линий и фигур (прямых линий, произвольных линий, кривых, эллипсов или кругов, прямоугольников или квадратов, многоугольников),размещение текстов на рисунке,работа с цветом - заполнение областей цветом, рисование с помощью кисти, рисование с помощью распылителя, изменение палитры, преобразование цветных рисунков в черно-белые, обращение цветных рисунков, изменение цвета нарисованных линий, копирование цвета объекта,работа с фрагментами рисунков - выделение фрагмента, копирование фрагмента, сохранение фрагмента в отдельном файле, вставка рисунка или фрагмента из библиотеки или другого файла,изменение рисунка - изменение размеров, изменение масштаба, отображение и поворот рисунка, растяжение и наклон.
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>