Составить программу по паскалю! определить количество чисел с цифрой 4 в записи числа

Var   ar: array[1..2000] of integer;   n,i,count: integer; begin   readln(n);   for i: =1 to n do begin     read(ar[i]);     while ((ar[i]> 0) and ((ar[i] mod 10)< > 4)) do ar[i]: =ar[i] div 10;     if ar[i] mod 10 = 4 then inc(count);   end;   writeln(count); end.

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен