Написать программу вычисления площади и периметра трапеции. 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((sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2- writeln(p); writeln(s); end    

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var n: =readinteger('n=');   var m: =18;   var a: =matrixrandom(m,n,-999,999);   var imax: =0;   var jmax: =0;   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do begin           write(a[i,j]: 5);           if abs(a[i,j])> abs(a[imax,jmax]) then begin               imax: =i; jmax: =j               end           end;       writeln       end;   writeln('максимум по модулю а[',imax+1,',',jmax+1,           ']=',a[imax,jmax]) end. тестовое решение: n= 10   -275  257 -860  744 -263  843      8  667  425 -547   -392  635  636 -441  -64  973  201 -864 -126 -868   -764    43 -884 -667 -113  807  354  966 -155 -527   532 -790 -911      0 -303 -471  453  431 -741 -582   -121  548 -946  610  724 -426  963 -589 -591  845   -846  629  728  634 -581  681  141  807 -142  -70   -510    42 -177  -48  -80 -601  547 -364  862 -593   -480  770  876 -544  253 -312  -11 -494 -391 -687   843  -56  558      0 -681  903 -519 -545 -418    15   387  646 -427  329  928  837 -274  101 -310  325     27  327 -452 -998  325 -616  752  273 -619  731   -307 -364  199 -454    86  546  483  823 -367    17   917    92 -945 -152    19 -126  198 -453 -473  416   961  888  815  283  286 -483 -604  557  674  935   -849  207 -926 -149 -677 -248 -552 -972 -756 -617   -646  -97 -532  673  407  934  272  700  -18 -548   186  206 -253  -35  769 -196 -179  915  259 -431   151  926 -851 -302 -134 -289    19  204 -474 -732 максимум по модулю а[11,4]=-998