Встречено '.', а ожидалось ';' uses graphABC;
var qx,qy,x0,y0,k,x1,y1,xl:integer;
x,y:real;
function tg (arg : real) : real;
Begin

tg := sin(arg)/cos(arg);
qx:=(900);
qy:=(700);
k:=20;
setwindowsize(qx,qy);
x0:=qx div 2;
y0:=qy div 2;

line(0,y0,qx,y0);
line(x0,0,x0,qy);
x:=-10;

begin
y:=ln(x*(tg)*x);
x1:=x0+round(xk);
y1:=y0-round(y*k);
setpencolor(cldarkgreen);
circle(x1,y1,2);
x:=x+0.001;
end;
end.

3743Dasha    3   03.12.2021 01:50    0