чтобы прога работала(должна выдавать решение квадратного уравнения) желательно скинуть ваш решенный рабочий вариант Program _1;
var

Kl,Wmin,Wmax,B,Lxod,Lmin,Lmax,La,L0,l: real;

begin

readln(Kl);
writeln('Kl=',Kl:6:3);
readln(Wmin);
writeln('Wmin=',Wmin:6:3);
readln(Wmax);
writeln('Wmax=',Wmax:6:3);
readln(B);
writeln('B=',B:6:3);
readln(La);
writeln('La=',La:6:3);
readln(L0);
writeln('L0=',L0:6:3);
Lmin:= La*sqrt(l+sqr(Kl)-(2*Kl*cos((Wmin+B)*Pi/180)));
Lmax:=La*sqrt(l+sqr(Kl)-(2*Kl*cos((Wmax+B)*Pi/180)));
Lxod:= Lmax-Lmin;
L:= L0+Lxod;
writeln('Lmin=',Lmin:6:3);
writeln('Lmax=',Lmax:6:3);
writeln('Lxod=',Lxod:6:3);
writeln('L=',L:6:3);
end.

Натальяроссия    2   03.12.2021 19:39    0