Длина кода должна быть любая а вот с длиной не так длина должна совпасть с кодами при этом надо учесть силы цифр
=C$22*$D22
D$22 -<em />полуабсолютная<em />ссылка. После копирования буква столбца сместится влево (D-C)
$D23 - <em />полуабсолютная<em />ссылка. После копирования цифра строки сместится вверх (23-22)
Program _1;
Var
x,fx:integer;
begin
writeln('Введите значение X');
readln(x);
if (x>0) then
begin
fx:=x;
end;
if (x=0) then
beginfx:=0;
end;
if (x<0) then
begin
fx:=-sqr(x);
end;
writeln('F(x): ',fx);
end.
Код в приложении
Компилятор - Pascal ABC.NET