Помогите пожалуйста!!!Это необходимо сделать на языке Паскаля...Безотлагательно необходимо,я не разумею как

Всем спасибо за решения!

Вычисление площади по формуле Герона:

Var a,b,c,p,S:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (alt;b+c)and(blt;c+a)and(clt;a+b) then
   Begin
   p:=(a+b+c)/2;
   S:=Sqrt(p*(p-a)*(p-b)*(p-c));
   WriteLn('S = ',S);
   End
else WriteLn('Треугольник abc не существует');
End.



Образцы работы программки:

a = 3
b = 4
c = 5
S = 6

a = 1
b = 2
c = 3
Треугольник abc не существует

Program plowad;
var p,a,b,c,s:real;
begin
writeln('Введите сторону "a"');readln(a);
writeln('Введите сторону "b" ');readln(b);
writeln('Введите сторону "c" ');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.