НУЖНО Всякая линия вектором представления описывается с указанием координат ее концов в таком виде :линия(Х1, Y1, X2, Y2). Изображение какой буквы зашифровано ниже?
ЛИНИЯ(4,2,4,8)
ЛИНИЯ(4,5,8,2)
ЛИНИЯ(4,5,8,8)
​

=ЕСЛИ(A1<=0;(A1^2)^1/3;ЕСЛИ(И(A1<5;A1>0;);COS(A1);ЕСЛИ(И(A1>=5;(A1+3);0

1) A1^2)^(1/3) - если возводите в степень в виде выражения (1/3) то берите его в скобки, иначе машина возведет в 1-ю степень и потом разделит на 3
2) ЕСЛИ(И(A1<5;A1>0) убрать лишнюю точка с запятой перед закрывающей скобкой
3) ЕСЛИ(И(A1>=5;(A1+3);0 - здесь или пропущено еще одно условие или не нужна функция И, это уже определите сами
4) слишком много закрывающих скобок в конце. их надо считать очень внимательно

На мой взгляд правильная запись будет выглядеть так:
=ЕСЛИ(A1<=0;(A1^2)^(1/3);ЕСЛИ(И(A1<5;A1>0);COS(A1);ЕСЛИ(A1>=5;(A1+3);0)))

Uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=325;
y:=225;
r:=200;
for i:=1 to 135 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180)); 
y1:=y-round(r*sin(i*pi/180)); 
line(x,y,x1,y1); 
end;
end.

uses graphabc;
var
x,y,r,x1,y1,i:integer;
begin
x:=100;
y:=50;
r:=200;
for i:=1 to 360 do 
begin 
Setpencolor(clblack); 
x1:=x+round(r*cos(i*pi/180))+200; 
y1:=y-round(r*sin(i*pi/180))+200; 
line(x,y,x1,y1); 
end;
end.