Чтобы найти гипотенузу и периметр прямоугольного треугольника, если даны его катеты, необходимо использовать следующие формулы:

• Гипотенуза (c): c = √(a² + b²), где a и b - длины катетов.
• Периметр (P): P = a + b + c.

Теперь давайте напишем программу на Паскале, которая будет выполнять эти вычисления. Программа будет запрашивать у пользователя длины катетов, вычислять гипотенузу и периметр, а затем выводить результаты на экран.

program Triangle;
uses crt;
var
    a, b, c, P: real;
begin
    clrscr; // Очистка экрана
    // Запрос длины катетов
    write('Введите длину первого катета (a): ');
    readln(a);
    write('Введите длину второго катета (b): ');
    readln(b);
    
    // Вычисление гипотенузы
    c := sqrt(a * a + b * b);
    
    // Вычисление периметра
    P := a + b + c;
    
    // Вывод результатов
    writeln('Гипотенуза (c) равна: ', c:0:2);
    writeln('Периметр (P) равен: ', P:0:2);
    
    readln; // Ожидание нажатия клавиши
end.

В этой программе:

1. Мы объявляем переменные a, b, c и P для хранения значений катетов, гипотенузы и периметра.
2. С помощью write и readln запрашиваем у пользователя длины катетов.
3. Используем функцию sqrt для вычисления гипотенузы.
4. Вычисляем периметр, складывая длины катетов и гипотенузу.
5. Выводим результаты на экран с помощью writeln.

Теперь вы можете запустить программу и ввести длины катетов, чтобы получить гипотенузу и периметр прямоугольного треугольника!