Если формула записана в ячейке В1, то при копировании "формула приобретет следующий вид": =2*$A2 (абсолютная часть формулы не изменяется, относительная изменяется)
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
Изменить отдельные элементы легенды можно изменять путем правки соответствующих данных на листе.
Дополнительные параметры редактирования, а также возможности изменения
элементов легенды без изменения данных на листе доступны в диалоговом
окне выбор источника
For i := a to b do
...
end;
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.