с=√(a²+b²) по теореме Пифагора
тогда P=a+b+√(a²+b²)
//Pascal var a, b, c: real; begin readln(a, b); c := sqrt(sqr(a) + sqr(b)); writeln('C = ', c, #13, 'P = ', a + b + c); end.