Написать линейную программу по нахождению периметра прямоугольного треугольника если известны 2 катета
Vara, b, c, p: real; beginwriteln('Введите 1 катет:');readln(a);writeln('Введите 2 катет:');readln(b);p := a + b + sqrt(a * a + b * b);writeln('Периметр: ');write(p);end.