ПОМОГИТЕ ПОЖАЛУЙСТА!!!
С помощью блок схемы или паскаля
Составьте алгоритм для решения следующей задачи:
Среди N произвольных вещественных чисел найдите количество не равных нулю.

var n,i,k:integer;a:array[1..1000] of real;beginreadln(n); for i:=1 to n doread(a[i]);for i:=1 to n doif a[i]<>0 then inc(k);write(k);end.

var n,i,k:integer;     a:array [1..50] of real;begin     write('Введите целое N = '); readln(n);     for i:=1 to n do     begin          write('a[',i,'] = '); readln(a[i])     end;     k:=0;     for i:=1 to n do           if a[i]<>0 then k:=k+1;     writeln('k = ',k)end.