С помощью блок схемы илиПаскаля. Составь те алгоритм для решения следуюшей залачи. Среди N произвольных вещественных чисел. Найдите количество неравных нулю.

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.