Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой – остроугольный, прямоугольный или тупоугольный.

Program zadacha
uses crt;
var
i,min,max,S,min_index,mas_index:integer;
a:array [1..10] of integer;
begin
min:a[1];
max:=a[1];
s:=1;
for i:=1 to 10 do readln (a[i]);
for i:=1 to 10 do
begin
if a[i]<min then min_index:=i; min:a[i];
if a[i]>max then max_index:=i; max:=a[i];
and;
for i:=min_index to max_index do
begin
S:=S*a[i];
and;
writeln (S);
end.

uses crt;
var x,y,z,k:integer;
begin
write(x,y,z);read(x,y,z);
k:=x+y+z;
if k=90 then write('прямоугольный');
if (k>90) and (k<180) then write('тупой');
if k<90 then write('острый');end.

for i := max_index to min_index do

 if (max_index > min_index) then begin
  for i := min_index to max_index do
  ...
 end else begin
  for i := max_index to min_index do
  ...
 end;

var x,y,z,k:real;
// (ввод значений x,y,z ; должно быть x>=y>=z)
// При условии ввода сторон в порядке невозрастания длин:
if ((x-y-z)>0) then write('никакой')
else begin
// k := (y*y + z*z - x*x)/(2.0*z*y);  - косинус угла между меньшими сторонами.
// однако нам нужен не сам угол, а только его тип (острый, прямой или тупой); 
// следовательно, - важно не само значение косинуса, а лишь его знак;
// поэтому просто:
k := y*y + z*z - x*x;
 if (k>0) then write('остроугольный')
 else if (k=0) then write('прямоугольный')
 else write('тупоугольный');
end;