Вводится число n, а затем n чисел. выведите среди n чисел только положительные

Program prog; uses crt;   var a: array [1..100] of real;         i, n: integer;     begin   clrscr;     write('n = ');   readln(n);     for i: =1 to n do   begin         write('a[',i,'] = ');         readln(a[i]);   end;     writeln;   writeln('положительные числа: ');   for i: =1 to n do   if (a[i]> 0) then         writeln('a[',i,'] = ', a[i]);   end.

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.