ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?
8 бит=256 вариаций или цветов.а значит объём видеопамяти 640*350*8=1792000бит.
Var a, n, k: integer;
Begin
Write('Количество чисел - ');
readln(n);
k:=0;
For var i:=1 to n do
begin
read(a);
if (a mod 10 =0) then k:=k+1;
end;
Writeln(k);
End.