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

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.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);