Procedure Tab(B,Xn,Dx,An,Ak,Da:real; N:integer;  var Ma,Mx:Tmx; var My:Tmy; var Mer:Ter);
var
      I,J:Integer;
      A,X,Y:Real;
      label f1,f2;
begin
i:=1;
a:=an;

f1:
j:=1;
x:=xn;
writeln('sdf');

f2:
mer[i,j]:=0;
writeln('qwe');
if j<=n then begin
     if b<>0 then
      begin
       y:=a*sqr(x)+b*x+cos(pi*(a/b));  mx[j]:=x; x:=x+dx; j:=j+1; goto f2
      end
     else
      begin
       mer[i,j]:=1;
       mx[j]:=x;
       x:=x+dx;
       j:=j+1;
       goto f2;
      end
     end
     else begin
     my[i,j]:=y;
     ma[i]:=a;
     i:=i+1;
     a:=a+da;
     if a<ak then goto f1;
     end;
end;