Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

p:=(a+b+c)/2; это модуль
resh(S,p,a,b,c); это пм