Pascal (Есть решение просто оформить!!!) отыскать вышину и площадь равнобедренной трапеции,

Если угол равен 45, то вышина одинакова отрезку с (рис. в задании).
с = (b-a)/2 = (3a-a)/2 = a; h=a;
Тогда S = (a+b)h/2 = (a+3a)a/2 = 2a

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Длина наименьшего основания:');
  Writeln('Высота трапеции h=',a,', площадь S=',2*a*a)
end.

Пример
Длина меньшего основания: 6.17
Вышина трапеции h=6.17, площадь S=76.1378

Var S,a,b,h,c : real;
begin
    Write('Введи наименьшее основание трапеции : ');
    Read(a);
    b := a*3;
    c := (b-a)/2;
    h := c;
    S := (a+b)/2 * h;
    Write('Вышина трапеции одинакова : ', h , '. Площадь трапеции равна : ' , S, '.');
end.