Написать алгоритм, классифицирующий треугольники

program sd;
uses crt;
var
   ugol,ugol2,ugol3,sum,i:integer;
                                begin
                                clrscr;
while i<>1 do begin    {сделал с ограичением}
write('введите градусы первого угла: ');
readln(ugol);
write('введите градусы второго угла: ');
readln(ugol2);
write('введите градусы третьего угла: ');
readln(ugol3);
sum:=ugol+ugol2+ugol3;
if sum<>180 then writeln('сумма углов должна ровняться 180!!!') else i:=1; end;
case ugol and ugol2 and ugol3 of
1..89:write('остроугольный')
else
case ugol or ugol2 or ugol3 of
90: write('прямоугольный');
91..180: write('тупоугольный');
end;
end;
end.

program sd;
uses crt;
var
   ugol,ugol2,ugol3,sum,i:integer;
                                begin
                                clrscr;
while i<>1 do begin    {сделал с ограничением}
write('введите градусы первого угла: ');
readln(ugol);
write('введите градусы второго угла: ');
readln(ugol2);
write('введите градусы третьего угла: ');
readln(ugol3);
sum:=ugol+ugol2+ugol3;
if sum<>180 then writeln('сумма углов должна быть равна 180!!!') else i:=1; end;
case ugol and ugol2 and ugol3 of
1..89:write('остроугольный')
else
case ugol or ugol2 or ugol3 of
90: write('прямоугольный');
91..180: write('тупоугольный');
end;
end;
end.