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

Дмитрий

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