Составить схему алгоритма главной программы и подпрограммы , главную программу и подпрограмму. Значение исходных данных выбрать самостоятельно
При решении  задачи использовать подпрограмму-функцию. Обмен данными между главной  программой и подпрограммой - через списки формальных и фактических параметров

[size=14]
Примерно так , не знаю , правильно ли ? Проверяйте [/size]
Program s1;
var x1,y1,x2,y2,x3,y3:integer;
Function ss(a,b,a1,b1,a2,a3,a4,b2,b3,b4:integer):real;
var dlina1,dlina2,dlina3,dlina4:real;
begin
dlina1:=sqr((a2-a1)+(b2-b1));
dlina2:=sqr((a3-a2)+(b3-b2));
dlina3:=sqr((a4-a3)+(b4-b3));
dlina4:=sqr(a4-a1)+(b4-b1));
ss:=тут будет формула , для вычисление площади 4-угольника
end;
Begin
writeln('x1,y1,x2,y2,x3,y3,x4,y4');
readln(x1,y1,x2,y2,x3,y3,x4,y4);
Writeln('s=',ss(x1,y1,x2,y2,x3,y3,x4,y4));
Readln;
End.