Напишите программу для следующей задачи даны стороны предполагаемого треугольника a,b,c. СРОЧНО ДАМ 60 БАЛЛОВ!!

пасеба

var a,b,c:integer;beginwriteln('Вычесление периметра треугольника.');writeln('Введите значение стороны a.');readln(a);writeln('Хорошо. Вы ввели значение для a: ',a);writeln('Введите значение стороны b.');readln(b);writeln('Хорошо. Вы ввели значение для b: ',b);writeln('Введите значение стороны c.');readln(c);writeln('Хорошо. Вы ввели значение для c: ',c);if a<0 thenwriteln('Данный треугольник не существует')elseif b<0 thenwriteln('Данный треугольник не существует')elseif c<0 thenwriteln('Данный треугольник не существует')elseif a+b<c thenwriteln('Данный треугольник не существует')elseif a+c<b thenwriteln('Данный треугольник не существует')elseif b+c<a thenwriteln('Данный треугольник не существует')elsewriteln('Периметр треугольника: ',a+b+c);end.