Присвойте переменной R квадрат разности 1-2а
Если имеется ввиду Pascal, то можно так: R:=sqr(1-2*a); А можно и так: R:=(1-2*a)*(1-2*a);