Паскаль срочно. Найти высоту и площадь равнобедренной трапеции если известно одно основание а другое в 3 раза больше заданного и угол при основаниии 45 градусов

//FPC 2.6.4var a: integer;beginreadln (a);writeln ('Основание: ', a);writeln ('S = ',  2*a*a);readln;end.