В двумерном массиве 4 х3 найти количество элементов, больших - 5. Если таких элементов не оказалось - вывести сообщене "Таких элементов нет!". Элементы ввести с клавиатуры.

Var a: array [1 ... 4, 1 ... 3] of integer;

i, j, k: integer;

begin k:=0;

for i:=1 to 4 do

for j:=1 to 3 do

begin begin read (a[i, j]) ;

if (a[i, j]>-5) then inc (k) ;

end;

writeln; {чтобы перейти на новую строку}

end;

if (k0) then writeln ('k=', k)

else writeln ('таких элементов нет') ;

readln;

end.