Написать программку (в Паскале), определяющую площадь четырехугольника по знаменитым значениям 4

program zz1;

var a, b, c, d, v, p, s1, s2:real; //задаем переменные не целого типа

begin

write(введите первую сторону прямоугольника );

read(a);  

write(введите вторую сторону прямоугольника );

read(b);

write(введите третью сторону прямоугольника );

read(c);

write(введите четвертую сторону прямоугольника );

read(d);

write(введите диагональ прямоугольника );

read(v);

p:=(a+b+v)/2;   // обретаем полупериметр треугольника

s1:=sqrt(p*(p-a)*(p-b)*(p-v));

p:=(c+d+v)/2;   

s2:=sqrt(p*(p-c)*(p-d)*(p-v));

Writeln( площадь четырехугольника = , s1 + s2); // выводим ответ как сумму ддвух площадей треугольников

END.