ПОМОГИТЕЕ СРОЧНОО!Составить текст программы к задаче( ПАСКАЛЬ)
Даны три стороны одного треугольника и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т. е. имеют ли они равные площади.

спасибо

Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный p=(a+b+c)/2Программа:program z;var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real;beginreadln(a1,b1,c1);   {ввод длин сторон первого треугольника}p1:=(a1+b1+c1)/2; {полупериметр первого треугольника}s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}readln(a2,b2,c2);  {ввод длин сторон второго треугольника}p2:=(a2+b2+c2)/2; {полупериметр второго треугольника}s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника}if s1=s2                   {если площади треугольников равны}then writeln('Yes')   {то вывести положительный ответ}else writeln('No');    {иначе вывести отрицательный ответ}end.