Var a,b,c,h,p,s: real;
begin
write('длины оснований трапеции a b (a>b): ');
readln(a,b);
c:=a-b;
p:=2*c+a+b;
h:=sqrt(3)*c/2;
s:=(a+b)*h/2;
writeln('периметр = ',p);
writeln('площадь трапеции = ',s);
// второе задание
// var x1,x2,y1,y2,z: real;
// z:=abs(x1+x2)+y1/(y2+x1);
end.
длины оснований трапеции a b (a>b): 10 8
периметр = 22
площадь трапеции = 15.5884572681199