var a,b,c,z:integer;
begin
readln(a, b, c);
z:=0;
if (a > b) and (a > c) then begin
z:= b+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (b > a) and (b > c) then begin
z:= a+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (c > a) and (c > b) then begin
z:= b+a;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник')
end
else if (a = b) and (a = c) then
write('Это равностороний треугольник')
else write('Это равнобедренный треугольник');
end.
Объяснение:
i, a, b, c: integer;
function check_is(a, b, c: integer):
boolean;
begin
if a >= b + c then check_is := false
else if b >= a + c then
check_is := false else
if c >= a + b then check_is := false else
check_is := true;
end;
procedure check_how(a, b, c: integer);begin
if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else
if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний');
end;
begin
writeln('Введите стороны треугольника');
read(a, b, c);
if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');
end.