var
a,b,x1,x2,k:real;
begin
writeln('Введите а');
readln(a);
b:= (sqrt(2)+x1 - abs(x2))/(sin(2*a) + 2*k);
writeln('b = ',b);
end.
var
a,b,x1,x2,k:real;
begin
writeln('Введите а');
readln(a);
b:= (sqrt(2)+x1 - abs(x2))/(sin(2*a) + 2*k);
writeln('b = ',b);
end.