задан массив из 8 вещественных чисел.Посчитать колличество эллементов массива,меньших 10ю

var A:array[1..10] of Real;i,k:integer;beginFor i:=1 to 8 doReadln(A[i]);For i:=1 to 8 doIf A[i]<10 thenk:=k+1;Writeln(k);end.