Помогите, пожалуйста составить алгоритм нахождения площади ...

Нюра

Program 7e;Uses crt;const N=25;var a,b,i: integer; {a,b-катеты}s,c: real; {s - площадь, c - гипотенуза}BeginWriteln('Введите длину первого катета');Read(a);Writeln('Введите длину второго катета');Read(b);c:=sqrt(sqr(a)+sqr(b));s:=a*b/2;for i:=1 to N do writeln;writeln('Длина гипотенузы =',c);writeln('Площадь треугольника =',s);end.