Написать програму в паскале. 1. Даны стороны треугольника а, в, с. Определить…

var a, b, c: integer; begin writeln ('Введите стороны треугольника'); readln (a, b, c); if (a+b <= c) or (b+c <= a) or (a+c <= b) then writeln ('Не является') else writeln ('Является'); end.