// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real;
  loop 25 do begin
    Write('Введите длины сторон треугольника: '); Read(a,b,c);
    Writeln('Периметр треугольника равен ',a+b+c)
    end
end.

Var
   A,B,C:real;
   i:integer;
Begin
For i:= 1 to 25 do
    Begin
    Write('Введите длины сторон треугольника: ');
    ReadLn(A,B,C);
    if (A < B+C)and(B < C+A)and(C < A+B) then
       WriteLn('P = ',A+B+C)
    else WriteLn('Треугольник не существует');
    End
End.