var
a, b, c, p: Integer;
begin
Write ('Введите стороны треугольника: ');
Read (a, b, c);
p := a + b + c;
WriteLn ('Периметр = ', p);
end.
