Даны катеты прямоугольного треугольника. Найти его периметр.

• program task3;
• var c, p : real;
• a, b : integer;
• begin
• writeln \('Введите длины катетов '\);
• write \('a= '\); readln\(a\);
• write \('b= '\); readln\(b\);
• c := sqrt(sqr\(a\)+sqr\(b\));
• p := a+b+c;
• writeln \('Периметр = ', p:5:2 \)
• end.