помогите составить программу на паскале, срочно..

и что сложного? обозначим угол при вершине за х, тогда углы при основании будут x/2.
1) x+x/2+x/2=180, 2x=180, x=90 (да он прямоугольный.
Площадь нашего треугольника равна:
2) S=a*a*sin(x)/2 a=SQRT(2*S/sin(x)) (боковые стороны)
3) с=a*a*SQRT(2) (диагональ квадрата, по теореме Пифагора)
SQRT - корень квадратный
Всё. Программируйте

Ну и что тут сложного? Сумма углов треугольника равна 180. Треугольник равнобедренный, следовательно углы при основании равны. Получаем уравнение: 2x+y=180.
y - вершина, x - основание. y=2x по условию. Преобразуем уравнение и получим, что y=90. А тогда получается, что треугольник прямоугольный. Площадь прямоугольного треугольника вычисляется по формуле: S=1/2*a^2, где a - ребро вашего треугольника.

program tr;
var
a,s:=real;
begin
clrscr;
writeln('Enter S');
readln(s);
a:=0;
a:=2*sqrt(s);
write('a = ',s:2:2);
until keypressed;
end.

Совсем народ думать не хочет.

Элементарно! Открываем Википедию и смотрим:

S = b / 2 * a * sin(Alpha); (1)
a = b / (2 * cos(Alpha)); (2)

Где:
b - основание;
a - боковая сторона;
Alpha - угол при основании.

Из (1):
a = (2 * S) / (b * sin(Alpha)); (3)

Приравняв (2) и (3) найдем b:
b ^ 2 = (4 * S * cos(Alpha)) / sin(Alpha);
b = Sqrt( (4 * S * cos(Alpha)) / sin(Alpha)); (4)

Теперь по (4) мы знаем как вычислить b, зная S и угол Alpha.
По (2) мы знаем как вычислить a, зная b и Alpha.

Осталось найти Alpha:
Пусть угол при основании Alpha = X, тогда X + X + 2X = 180,
следовательно, X = Alpha = 45 градусов.
Sin(45) = Cos(45) = Sqrt(2) / 2; (5)

Теперь переносите формулы (2), (4), (5) в вашу программу и производите вычисления.

З. Ы. : это геометрия 7 класса, вам не стыдно?
З. Ы. Ы. : Sqrt() - квадратный корень.
З. Ы. Ы. Ы. : ответ, который выше моего абсолютно верный. Правильно подмечено, что треугольник получится прямоугольный, поэтому формула площади сильно упрощается. Мой вариант более общий, он позволяет вычислить стороны РБ треугольника, даже если нет отношения 180 = X + X + 2X. Но в вашем случае воспользуйтесь ответом выше.

Не знаю геомертрию - решишь задачу на бумаге - сделаю программу

срочно решите эту задачу на бумаге! )
потом, когда решите, кидайте решение сюда, а тут уже очередь будет людей, которые любят делать чужую работу за Вас)
Ага)

а сиськи не помять?

зачем оно тебе нуууууужно