СРОЧНО ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ. 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) программа не работает,помогите исправить ошибку.