smnoregrets

Verified answer

{
Периметр треугольника вычисляется по формуле P = a + b + c
где a, b, c - длины сторон треугольника
}

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.