Помогите пожалуйста!!!основания равнобедренной трапеции равны 11 дм и 23 дм а боковая сторона 10 дм.Вычислите высоту треугольника

Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal:

1) Определить, что будет напечатано в результате работы следующего фрагмента программы:

var k,s:integer;

begin

s:=0;

k:=1;

while k<11 do begin

s:=s+k;

k:=K+1;

end;

write(s);

end.

1.1 Запишите этот же фрагмент с помощью оператора Repeat...until

2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

     A[n]:=n-10;

for n:=1 to 100 do

     B[n]:=A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

а)10     б)50     в)90      г)100

1)Определите работу силы тяжести при падении на землю тела массой 500г и с высоты 3м,примите g=10Н/кг. 2)Ведро с песком массой 24,5кг поднимают на высоту 10м с помощью неподвижного блока прикладывая к верёвке силу 250Н.Вычислите КПД установки.Заранее спасибо