program perimeter_triangle;
var
side1, side2, side3, perimeter: real;

begin
writeln('Введите длину первой стороны треугольника: ');
readln(side1);
writeln('Введите длину второй стороны треугольника: ');
readln(side2);
writeln('Введите длину третьей стороны треугольника: ');
readln(side3);

perimeter := side1 + side2 + side3;

writeln('Периметр треугольника равен: ', perimeter);
end.