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

Question

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

Answer 1

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