Question

Присвойте переменной R квадрат разности 1-2а

Answer 1

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