Паскаль срочно. Найти высоту и площадь равнобедренной трапеции если известно одно основание а другое в 3 раза больше заданного и угол при основаниии 45 градусов
//FPC 2.6.4 var a: integer; begin readln (a); writeln ('Основание: ', a); writeln ('S = ', 2*a*a); readln; end.