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

Вроде здесь уже решал такое :)//Pascalvar  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.