program abc; uses crt; var a,b,c:real; begin writeln('Введите первую сторону: '); readln(a); writeln('Введите вторую сторону: '); readln(b); writeln('Введите третью сторону: '); readln(c); if (a=b) and (b=c) then writeln('Ваш Треугольник Равносторонний') else if (a=b) or (a=c) or (b=c) then writeln('Ваш Треугольник Равнобедренный') else if (a+b<c) or (a+c<b) or (b+c<a) then writeln('Ваш Труегольник Не существует') else writeln('Ваш Треугольник Разносторонний'); end.
program abc;
uses crt;
var a,b,c:real;
begin
writeln('Введите первую сторону: ');
readln(a);
writeln('Введите вторую сторону: ');
readln(b);
writeln('Введите третью сторону: ');
readln(c);
if (a=b) and (b=c) then
writeln('Ваш Треугольник Равносторонний')
else
if (a=b) or (a=c) or (b=c) then
writeln('Ваш Треугольник Равнобедренный')
else
if (a+b<c) or (a+c<b) or (b+c<a) then
writeln('Ваш Труегольник Не существует')
else writeln('Ваш Треугольник Разносторонний');
end.