ДАЮ 20 БАЛЛОВ!!!
Помогите написать программу в Паскале!!!
Даны 3 стороны треугольника.надо найти площадь(по формуле герона)

var a,b,c,p,S:real;beginwriteln('Введите A: ');readln(a);writeln('Введите B: ');readln(b);writeln('Введите C: ');readln(c);if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) thenbeginp:=(a+b+c)/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('S = ',s)end elsewriteln('Стороны треугольникавведены неверно!');end.