В алгоритмах, записанных ниже, используются переменные a и b, а также следующие операции:

:= - присваивание;

+ - сложение;

-- - вычитание;

* - умножение;

/ - деление.

Определите значение переменных после выполнения алгоритмов:

a:= 4;
a:= a *(-a);
b:=-a/2;
c:=a + b + 3;

Var
    capacity: real;

begin
    capacity := 4 * 160 * 60;
    writeln('Слов за 4 часа = ', capacity);
    {пробелы тогда тоже считаем}
    capacity := capacity * (6 + 1);
    writeln('Символов за 4 часа = ', capacity);
    capacity := capacity;
    writeln('Байт за 4 часа = ', capacity);
    capacity := capacity / 1024;
    writeln('Кбайт за 4 часа = ', capacity);
end.

Вывод
Слов за 4 часа = 38400
Символов за 4 часа = 268800
Байт за 4 часа = 268800
Кбайт за 4 часа = 262.5

А вобще применять битовое определение символов как подсчет кол-ва информации перерабатываемой человеком - в корне не верно

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.