даны катеты прямоугольного треугольника a b c найдите его периметр P(P=a+b+c).

составьте блок-схему и напишите программу ее решения

 

 

program z1;
var a,b,c,p:double;
begin
        readln(a);readln(b);
        c:=sqrt(a*a+b*b);
        p:=a+b+c;
        writeln(p);
        readln
end.