Определить, существует ли прямоугольный треугольник со сторонами a,b,c. Если- да, вычислить его площадь по формуле Герона S=√p(p-a)(p-b)(p-c), где p=12(a+b+c)

118. даны коэффициенты квадратного уравнения a,b,c. найти действительные корни этого уравнения. program kv_ur; var a,b,c,x1,x2,d: real; begin writeln ('для решения квадратного уравнения'); writeln ('введите коэффициент a'); readln (a); writeln ('введите коэффициент b'); readln (b); writeln ('введите коэффициент c'); readln (c); d: =sqr(b)-4*a*c; if d< 0 then writeln ('так как дискрименант ',d,'< 0 уравнение не имеет решений');         begin            if d=0 then                            begin                                    x1: =-b/(2*a);                                     writeln ('так как дискриминант равен 0 уравнение имеет один корень: ');                                     writeln(x1);                             end;                           if d> 0 then                            begin                                     x1: =(-b- sqrt(sqr(b)-4*a*c))/2*a;                                     x2: =(-b+ sqrt(sqr(b)-4*a*c))/2*a;                                     writeln ('так как дискриминант ',d,'> 0 уравнение имеет два корня: ');                                     writeln ('x1=', x1, ' и x2=', x2);                             end;   end; end.   122. можно ли прямоугольный пакет размерами a,b,c положить в чемодан размерами x,y,z?   program chemodan; var a,b,c,x,y,z: real; begin writeln ('введите размеры пакета');   writeln ('введите длину a'); readln (a); writeln ('введите ширину b'); readln (b); writeln ('введите высоту c'); readln (c); writeln ('введите размеры чемодана'); writeln ('введите длину х'); readln (x); writeln ('введите ширину y'); readln (y); writeln ('введите высоту z'); readln (z);   if (a< =x) and (b< =y) and (c< =z) then writeln ('пакет можно положить') else writeln ('пакет положить нельзя'); end.