С клавиатуры вводятся три числа, которые есть углами треугольника. Написать програму Паскаль и вычислить может ли быть этот треугольник равносторонним, равнобедренным

Предыдущий
вопрос Следующий
вопрос

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

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