Verified answer

var

 a, b, c, p: Integer;

begin

 Write ('Введите стороны треугольника: ');

 Read (a, b, c);

 p := a + b + c;

 WriteLn ('Периметр = ', p);

end.