Составить программу по паскалю! определить количество чисел с цифрой 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.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

 

вроде так

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа