Исправить ошибку. 30 : "написать модуль для вычисления площади треугольника по формуле герона(она ниже представлена). основная пм: program geron; uses crt,formula; var s,p: real; a,b,c: real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); resh(s,p,a,b,c); write('s=',s: 12: 2); readkey end. модуль: unit formula; interface procedure resh(a,b,c: real; var p,s: real); implementation procedure resh(a,b,c: real; var p,s: real); begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); end; end. суть в том что написанно все правельно но при вводе чисел ничего нет ⇔ (s=0) программа не работает, исправить ошибку.