В вещественной таблице A[1:10] найдите количество всех ненулевых элементов

var a:array [1..10] of real; s,i:integer; Begin   {vvod tablicy}   for i := 1 to 10 do     if a[i]<>0 then s:=s+1;   writeln(s);    End.