ПОМОГИТЕ!!! Я ПРОСТО СИЖУ УЖЕ ДВА ЧАСА !!! У меня 4ый вариант. Нужно только его

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

В задаче про трапецию у меня получилось так:
var a, b,p,s: real; begin readln(a,b); p := 2*a+2*b+2*(a-b)/4; s:=(a+b)/2*((a-b)/2*sqrt(3)/2); writeln('Периметр:',p,' Площадь: ',s); end. Тестовое решение: a = 10, b =8 Периметр:37 Площадь: 7.79422863405995