Составте блок схему вычесление периметра и площадь прямоугольного треугольника по долинам его двух катетов

Program xxx;

   Var a, b, c, p, s : real;

Begin

   wtiteln('введите катет а-');

   read(a);

   wtiteln('введите катет b-');

   read(b);

   s:=(a*b)/2;

   writeln('площадь треугольника =', s);

   c:=sqrt(sqr(a)+sqr(b));

   p:= a+ b + c;

   writeln('периметр треугольника =', p);  

end.