program PerimeterCalculation;
var
side1, side2, side3, perimeter: Real;
begin
// Ввод данных
writeln('Введите длину первой стороны:');
readln(side1);
writeln('Введите длину второй стороны:');
readln(side2);
writeln('Введите длину третьей стороны:');
readln(side3);
// Вычисление периметра
perimeter := side1 + side2 + side3;
// Вывод результата
writeln('Периметр треугольника равен: ', perimeter);
end.

Программа запрашивает у пользователя длины трех сторон треугольника и вычисляет их сумму, которая и является периметром треугольника. Результат выводится на экран.