Написать линейную программу по нахождению периметра прямоугольного треугольника если известны 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.