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

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