Нужно написать программу на вход в pascal
Программа получает 3 действительных числа- значение градусных мер углов треугольника
1 программа должна проверить что это треугольник ( сложить 3 угла и получить 180)
2 программа должна вывести какой это треугольник( равнобедренный 2 угла равны, равносторонний все 3 угла равны 60, или прямоугольный угол 90)
3 если это прямоугольный треугольник то программа должна запросить 2 стороны треугольника ( 2 катета) и найти его площадь. ( площадь равна половине произведения катетов)
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В PASCAL ДАЮ 99 БАЛЛОВ!!

Э да

Ааа сори точку забыл

Спасибо огромное за помощь

Проверь. Теперь все нормально?

Да

uses crt;var a,b,c: Integer;BeginWrite('Введите три угла: ');Readln(a, b, c);If (a+b+c)=180 thenWriteln('Это треугольник')Else Writeln('Это не треугольник');End.Вторая:uses crt;var a,b,c: Integer;BeginWrite('Введите три угла: ');Read(a,b,c);If (a=b) or (a=c) or (b=c) thenWriteln('Треугольник равнобедренный');End.Третья:uses crt;var a,b,c: Integer;d,e,f: Real;BeginWrite('Введите три угла: ');Readln(a,b,c);If (a=90) or (b=90) or (c=90) thenWrite('Введите два катета: ');Readln(d,e);f:=(d+e)/2;Writeln('Площадь треугольника: ', f, '.');End.Если надо объединить в одну - пиши.