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

Мы так делали: 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.