Code
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;
писал с использованием goto что бы не заморачиваться с циклами
писал по блок схеме
где то ошибся поправь сам, ошибся по видимому в ифах или не дописал по блок схеме