Боковая сторона равнобедренного треугольника равна 29 см, а высота, проведенная к основанию, равна 21 см. Найдите основание треугольника.

Много баллов(78) за блок-схему...завтра курсовую сдавать :(

программа на паскале

uses crt;

type mas=array [1..100] of integer;

var

b:mas;

p,i,n:integer;

procedure vvod (x:mas;k:integer);

var i,p:integer;

begin

for i:=1 to n do begin

write('Vvedite chislo: ');

readln(x[i]);

end;

for i:=1 to n do

write(x[i]:3);

for i:=n downto 1 do

if x[i]<0 then

p:=i;

writeln;

write('= ',x[p-1]);

writeln;

readln;

end;

begin

clrscr;

write('Vvedite kol-vo chisel: ');

readln((n));

vvod (b,n);

readln;

end.

684т+430кг= ...т...кг

3ц+854кг= ...кг

300т640кг-2130кг=...т...кг 

В баллоне емкостью 40л находится гелий при температуре 120С. После подкачивания и установления прежней температуры его давление увеличилось на 10^5 Па. Насколько увеличилась масса гелия?

p1V = (m1/M) RT1 − для первого состояния. (1)

p2V = (m2/M) RT2 − для второго состояния. (2)

Δm = m2 − m1.

кое-что нашел по решению но дальше как не знаю.