Вроде здесь уже решал такое :)

//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.