Впрограмме паскаль: вычислите площадь треугольника по его сторонам.

Сделано, шеф!   мне б кто решил, а ; ) var a,b,c: integer; s,p: real; begin readln(a); readln(b); readln(c); s: =0; p: =0; p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь треугольника=',s); end.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! begin   range(1,15).select(i-> format('{0,2}{1,6}{1,6}',i,i*i,i*i*(newline) end. результат   1        1        1   2        4        4   3        9        9   4      16      16   5      25      25   6      36      36   7      49      49   8      64      64   9      81      81 10    100    100 11    121    121 12    144    144 13    169    169 14    196    196 15    225    225

Function atodec(n: string; k: integer): longint; { перевод из системы по основанию k в десятичную } var   i: integer;   pa,s: longint; begin   s: =0;   pa: =1;   for i: =length(n) downto 1 do begin       s: =s+pa*(ord(n[i])-ord('0'));       pa: =pa*k       end;   atodec: =s end; function dectoa(n: longint; k: integer): string; { перевод из десятичной системы в систему по основанию k } var   s: string;   c: integer; begin   s: ='';   c: =ord('0');   while n> 0 do begin       s: =chr(c+n mod k)+s;       n: =n div k       end;   dectoa: =s end; function atob(s: string; a,b: integer): string; { перевод из системы по основанию a в систему по основанию b } begin   atob: =dectoa(atodec(s,a),b) end;       var   a,b: integer;   n: string; begin   write('число в c/c по основанию [2; 10]: '); readln(n);   writeln('укажите исходное и результирующее основания: ');   read(a,b);   writeln(n,'(',a,') = ',atob(n,a,b),'(',b,')'); end. пример решения число в c/c по основанию [2; 10]: 643342414 укажите исходное и результирующее основания: 7 9 643342414(7) = 80050347(9)