Написать линейную программу по нахождению периметра прямоугольного треугольника если известны 2 катета

program zz1;

var a, b, c, p:real; / /задаем переменные не целого типа

begin

write ('введите первую сторону треугольника '); / / вводим с клавиатуры число

read (a);

write ('введите вторую сторону треугольника '); / / вводим с клавиатуры число

read (b);

c:=sqrt (sqr (a) + sqr (b)); / / находим гипотенузу прямоугольного треугольника

p:=a + b + c; / / находим периметр треугольника

write (' найденный периметр прямоугольного треугольника = ', p:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.