Program Perimetr;

var   P, a,b,c:integer;

Begin

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

 write('a='); readln(a);

 write('b='); readln(b);

 write('c='); readln(c);

 P:= a+b+c;

 writeln('Периметр треугольника = ', P);

end.