Значения двух массивов a 1-200 и b 1-200 с следующего фрагмента программы на паскале for n: =1 to 300 do a(n): = n+100; for n: =1 to 200 do b(n): = 2*a(n)-500.сколько элементов массива b будут иметь положительные значения?

ответ-50. 

Программа с которой я это вычислил [Pascal].

program abc;
var sum,i,k,n:longint;
a,b:array[1..200]of longint;
begin
 for n:=1 to 200 do A[n]:= n+100; 
for n:=1 to 200 do begin B[n]:= 2*A[n]-500;
if b[n]>0 then k:=k+1; end;
write(k);
end.