Вводится число 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 -6 февраля. / понедельник.

2 - иа.

3 - число "1"

4 - печка.

5 - клюв.

6 - царь.

7 - марка.

8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.