Написать программу вычисления площади и периметра трапеции. 90 БАЛЛОВ.

program TRAPECIYA;var x1, x2 ,y1, y2, P, S:real;begin  writeln("Введите значение верхнего основания");  readln(y1);  writeln("Введите значение нижнего основания");  readln(y2);  writeln("Введите значение левой грани");  readln(x1);  writeln("Введите значение правой стороны");  readln(x2);P:=y1+y2+x1+x2;  S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))writeln(P);writeln(S);end