var a,b,c,p: integer;
Begin
Writeln('введите длины сторон');
readln(a,b,c);
p:=a+b+c;
write('p=',p);
end.