Создать массив а из десяти целых чисел. вывести полученный массив на экран. подсчитать k - количество элементов массива, значение которых превышает 12

program p;

var a, k: integer;

uses crt;

begin

clrscr;

writeln('введи первую переменную');

readln(a);

writeln('введи вторую переменную');

readln(k);

if (a> =10) and (a< =20) and (k> =12)

then writeln('верно и входит ')

else writeln('что-то не так');

end.