program TriangleType;
var
a, b, c: integer;
begin
// ввод трех углов
write${}^{\prime }Введитепервыйугол{:}^{\prime }$;
readln$a$;
write${}^{\prime }Введитевторойугол{:}^{\prime }$;
readln$b$;
write${}^{\prime }Введитетретийугол{:}^{\prime }$;
readln$c$;
// проверка на то, что сумма углов равна 180
if a + b + c = 180 then
begin
// проверка на равносторонний треугольник
if $a=b$ and $b=c$ then
writeln${}^{\prime }Треугольникравносторонни{й}^{\prime }$ // проверка на равнобедренный треугольник
else if $a=b$ or $b=c$ or $c=a$ then
writeln${}^{\prime }Треугольникравнобедренны{й}^{\prime }$ else
writeln${}^{\prime }Треугольникразностороннийинеравнобедренны{й}^{\prime }$;
end
else
writeln${}^{\prime }Треугольникстакимиугламинесуществуе{т}^{\prime }$;
end.

Программа принимает данные от пользователя — три угла треугольника, и проверяет их на равносторонний, равнобедренный или разносторонний треугольник.