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

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.