Дан массив целых чисел найти количество элементов массива, значения которых больше заданного числа A и кратных

  • Const n=10;
    var arr:array 1..n of integer;
    a,k,i:integer;
    begin
    Randomize;
    writeln(Исходный массив:);
    for i:=1 to n do
    begin
    arri:=random(51);
    write(arri:4);
    end;
    writeln;
    write(a = );
    readln(a);
    k:=0;
    for i:=1 to n do
    if (arri > a) and (arri mod 5=0) then k:=k+1;
    writeln(k = ,k);
    end.

    Пример:
    Исходный массив:
    23 25 41 15 3 48 33 24 10 35
    a = 12
    k = 3