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

end.