Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А больше 0, B больше 0, C больше 0), вводимых с клавиатуры

Вроде здесь уже решал такое :) //Pascal var   n, a, b, c: integer; begin   n := 1;   repeat     repeat       writeln(' Ведите стороны A,B,C ', n, ' - треугольника');       readln(a, b, c);     until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);     writeln('Периметр равен ',a + b + c);     n := n + 1;   until n > 25; end.