program lab2;
var
A,An,Ak,X,Xn,Xk,Ha,Hx,Hn,Hk,W:real;
function max(b,c:real):real;
begin
if b<c then max:=b;
writeln('vvedi An,Ak,Ha');
readln(An,Ak,Ha);
writeln('vvedi Xn,Xk,Hx');
readln(Xn,Xk,Hx);
writeln('èñõîäíûå äàííûå');
writeln('An=',An:5:2,'Ak=',Ak:5:2);
writeln('Xn=',Xn:5:2,'Xk=',Xk:5:2);
writeln('Hn=',Hn:5:2,'Hk=',Hk:5:2);
writeln('òàáëèöà çíà÷åíèé');
writeln('W':9,'A':9,'X':9);
A:=An;
repeat
X:=Xn;
repeat
W:=max(3*arctan(a*x));sqrt(sqr(a)+sqr(x));arctan(s qrt(1-sqr(x))/x*(a+x/10));
writeln(W:7:2,A:7:2,X:7:2);
X:=X+Hx
untilX>Xk;
A:=A+Ha
untilA>Ak;
writeln('Wmax=',Wmax:7:2);
writeln('Amax=',Amax:7:2);
writeln('Xmax=',Xmax:7:2);
end.