Моя интуиция подсказывает, что это паскаль, если так, тогда нужны скобки, иначе машина будет выдавать ошибку. Полный код будет выглядеть так:
var x:integer; y:real;
begin
readln(x);
if (x>=-2) and (x<=2) then y:=sqr(x)/4;
writeln(y);
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644