В заданном массиве вещественных чисел определить количество элементов меньших…

CONST N=5; varx: real; i: integer; ar: array[1… N] of real; beginfor i: =1 to N do beginreadln (ar[i]); x: =x+ar[i]; end; x: =x/i; for i: =1 to N do if (ar[i] < x) then write (ar[i],'); end.