Помогите, пожалуйста, выполнит задания, связанные с 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