A: integer;
begin
read(a);
if (a > 99) and (a < 1000) and (not odd(a)) then
write('true')
else
write('false');
end.
1 Фильтрация данных — это быстрый и простой способ найти подмножество данных и работать с ним в диапазоне ячеек или в столбце таблицы. В отфильтрованных данных отображаются только строки, соответствующие заданным условия, а ненужные строки скрываются.
Моя интуиция подсказывает, что это паскаль, если так, тогда нужны скобки, иначе машина будет выдавать ошибку. Полный код будет выглядеть так:
var x:integer; y:real;
begin
readln(x);
if (x>=-2) and (x<=2) then y:=sqr(x)/4;
writeln(y);
end.