Procedure Menu;

Begin

WriteLn('Выберите пункт меню');

WriteLn('1-можно ли построить треугольник');

WriteLn('2-прямоугольный ли треугольник');

WriteLn('3-вычислить периметр');

WriteLn('4-вычислить площадь');

WriteLn('5-вычислить периметр и площадь');

WriteLn('6-Введите заново стороны треугольника');

WriteLn('7 или Esc-выход');

End;

Procedure Zash;

Begin

as:=' ';

repeat

lok:=ReadKey;

If lok=#0 Then lok:=ReadKey;

Case lok Of

‘0'..'9','-':Begin

Write(lok);

If lok<>#13 then as:=as+lok;

End;

End;

Until lok=#13;

WriteLn;

End;

Procedure Dannie;

Begin

textcolor(15);

Write('Введите сторону a='); zash; Val(as,a,s2);

Write('Введите сторону b='); zash; Val(as,b,s2);

Write('Введите сторону c='); zash; Val(as,c,s2);

End;

Procedure ProvT;

Begin

Writeln('Можно ли построить треугольник из отрезков длина, которых равна a,b,c?');

If ((a+b)>=c) and ((a+c)>=b) and ((c+b)>=a)

Then writeln('можно')

Else writeln('нельзя’);

End;

Procedure ProvP;

Begin

Writeln('Является ли треугольник прямоугольным?');

If (sqr(a)+sqr(b)=sqr(c)) or

(sqr(a)+sqr(c)=sqr(b)) or

(sqr(c)+sqr(b))=sqr(a))

Then begin

write('да с гипотенузой ');

if (a>b) and (a>c)

then writeln('a =',a:5:2)

else if (b>a) and (b>c)

then writeln('b =',b:5:2)

else writeln('c =',c:5:2);

end

Else writeln(‘нет');

End;

Procedure Perim;

Begin

Per:=a+b+c; {vichesliaem perimetr}

Writeln('Per=', Per:5:2); {vivodim znachenie perimetra}

End;