Процедура Без параметра

[admin22]

Привет всем.
У меня есть программа

program a1; 
var a,b,c,s,p:real;

BEGIN
writeln('введите числовые значения трёх сторон треугольника  для вычисления площади по формуле герона');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:6:2)
 
END.

Помогите переделать ее в процедуру без параметра. Спс заранее

[fbus]

program a1; 
var a,b,c,s,p:real;

procedure myproc;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

BEGIN
writeln('введите числовые значения трёх сторон треугольника  для вычисления площади по формуле герона');
readln(a,b,c);
myproc;
writeln(s:6:2); 
END.

ну или

program a1; 
var a,b,c,s,p:real;

procedure myproc;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:6:2); 
end;

BEGIN
writeln('введите числовые значения трёх сторон треугольника  для вычисления площади по формуле герона');
readln(a,b,c);
myproc;
END.

или

program a1; 
var a,b,c,s,p:real;

procedure myproc;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:6:2); 
end;

BEGIN
writeln('введите числовые значения трёх сторон треугольника  для вычисления площади по формуле герона');
myproc;
END.

скорее всего то что вам нужно - последний вариант

а если уж совсем все запихнуть в процедуру то получится

program a1; 

procedure myproc;
var a,b,c,s,p:real;
begin
writeln('введите числовые значения трёх сторон треугольника  для вычисления площади по формуле герона');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:6:2); 
end;

BEGIN
myproc;
END.