Напишите программу для паскаль! вычислить площадь прямоугольного треугольника по заданным длинам двух катетов а и b

Var      a, b, c, s, p : real;         begin      write('введите катет a : '); readln(a);       write('введите катет b : '); readln(b);                 c : = sqrt(sqr(a)+sqr(b));                 p : = a + b + c;     s : = (a*b)/2;                   writeln('площадь равна : ', s);                 readln; end.

Var   s,sd: string;   i,n,sum,d,err: integer; begin   writeln('введите строку для суммирования');   read(s);   sum: =0;   n: =length(s);   if n> 0 then begin       i: =2; sd: =s[1];       while i< =n do begin           if s[i]< > '+' then sd: =sd+s[i]           else begin               val(sd,d,err);               sum: =sum+d;               sd: =''           end;           inc(i);             end;       val(sd,d,err);       sum: =sum+d   end;   writeln('сумма равна ',sum) end. тестовые примеры: введите строку для суммирования 1+25+3 сумма равна 29 введите строку для суммирования 143+38+253+62 сумма равна 496

                                                  начало                                                       /                                             возьми ведро                                                       /                                             набери воды /                                                       /                                        /                                             потуши                           /                                                       /                                       /                     да                     /                                                                                       поставь ведро                                                                     /                   конец