Помогите пожлуйста решить написать на паскале

[Suzukava]

Помогите плз решить задачку:
Составить программу, которая вводит три числовых значения (a,b,c) и, рассматривая их как длины сторон треугольника по формуле Герона
S= корень из p(p-a)(p-b)(p-c)
где p= 1/2(a+b+c)

хотябы алгоритм и как ее сделать,не пойму никак =(

Comments

[Suzukava]

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

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

вроде так но чтото мне здесь не нравиццо..

[Suzukava]

подскажите =)

[-=TurboRufus=-]

Suzukava

вроде так но чтото мне здесь не нравиццо..

- что?

[Suzukava]

все я сделал )))
uses crt;
var a,b,c,p,s:real;
flag:boolean;
begin
repeat
clrscr;
flag:=false;
Writeln('Input');
readln(a,b,c);
if ((a+b)>c)and((a+c)>b)and((b+c)>a) then flag:=true;
until flag;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.

правильно?))

[-=TurboRufus=-]

да. проверки нехватало.

[keinW]

ну, вот, хотел позлорадствовать по поводу сессии.
а тут и вопрос задали и что уже сделали сказали, а потом еще и конечный результат.

[Suzukava]

народ можете подправить код чтобы там не было модуля crt и оно работало))
а то без него не пашет))

[Suzukava]

а уже ненадо=)