const
pi=3.14159265358979;
var
a,b,c:integer;
cos1,cos2,cos3:real;
begin
repeat
write ('A = ');readln(a);
write ('B = ');readln(b);
write ('C = ');readln(c);
if (a+b<=c) or (a+c<=b) or (b+c<=a) then writeln ('The triangle doesnt exist');
until (a+b>c) and (a+c>b) and (b+c>a);
cos1:=((a*a+b*b-c*c)/(2*a*b))*180/pi;
cos2:=((a*a+c*c-b*b)/(2*a*c))*180/pi;
cos3:=((b*b+c*c-a*a)/(2*b*c))*180/pi;
if (cos1=0) or (cos2=0) or (cos3=0) then writeln ('Прямоугольный') else
if (cos1<0) or (cos2<0) or (cos3<0) then writeln ('Тупоугольный') else
writeln ('Остроугольный');
readln;
end.
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
2. колонтитул
3. вставка
4.стиль документа
5. шаблон
6. в Word 2013 - вкладка "Источник бумаги" a здесь видимо вопрос по более ранней версии: не могу ответить