begin writeln('Enter the lengths of the sides of the triangle:'); readln(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) then begin perimeter := a + b + c; writeln('Perimeter of the triangle is: ', perimeter:0:2); end else writeln('Triangle does not exist.'); end.
program TrianglePerimeter;
var
a, b, c, perimeter: real;
begin
writeln('Enter the lengths of the sides of the triangle:');
readln(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
perimeter := a + b + c;
writeln('Perimeter of the triangle is: ', perimeter:0:2);
end
else
writeln('Triangle does not exist.');
end.