По трем введенным с клавиатуры сторонам необходимо выяснить: 1 вариант (ПК №1) - могут ли эти стороны образовать треугольник; программа АBC паскаль Зациклить эту программу, тем самым дать возможность повторять запрос, используя «Желаете повторить? Y/N».

var a,b,c:integer; x:char;beginrepeat write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if (a+b>c)and(a+c>b)and(b+c>a)  then writeln('Стороны могут образовать треугольник')  else writeln('Стороны не могут образовать треугольник'); writeln('Желаете повторить? (Y/N)'); readln(x);until x='N';end.Пример:a = 3b = 5c = 4Стороны могут образовать треугольник Желаете повторить? (Y/N) Ya = 8b = 1c = 5Стороны не могут образовать треугольник Желаете повторить? (Y/N)N