Решение задачи с использованием табличных моделей

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.