Составить программу на паскале двумя способами - через процедуру и функцию. пятиугoльник зaдaн кoopдинaтaми cвoиx вepшин. нaйти eгo плoщaдь.

Используется формула гаусса (формула "шнурования"). // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! - с функцией: function spolygongauss(a: array of real): real; // возвращает вычисленную по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   result: =0.0;   while i< =n do begin       result+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   result: =abs(0.5*result) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   writeln('площадь равна ',spolygongauss(x)) end. пример введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5 площадь равна 3.915 - с процедурой: procedure spolygongauss(a: array of real; var s: real); // вычисляет по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   s: =0.0;   while i< =n do begin       s+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   s: =abs(0.5*s) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   var s: real;   spolygongauss(x,s);   writeln('площадь равна ',s) end.

//pascal abc.net v3.1 сборка 1217 var   s,s1: string;   i: integer; begin   readln(s);   var ars: =s.towords;   for i: =0 to ars.length-1 do   if lowcase(ars[i][1])< > lowcase(ars[i][length(ars[1])]) then s1: =s1+ars[i]+' ';   writeln(s1); end. пример ввода: мама окно рама пример вывода: мама рама