Вмассиве b1, b2, bn найти первое положительное число и напечатать его номер. язык програмирования паскаль

Program xxx; var i, n, k : integer;       b : array [1..100] of real; begin write ('введите n='); readln(n); write ('введите массив b : '); for i: =1 to n do read(b[i]); k: =0; i: =1; while (i< =n) and (k=0) do   if b[i]> 0 then k: =i else i: =i+1; if k=0 then write('положительных элементов - нет')           else write('номер первого положительного элемента-', k ) end.

обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:

14400 * 10 : 8 = 18000 символа

336600 * 10 * 8 = 420750 символа