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

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.