Даны катеты прямоугольного треугольника 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.