Рассчитайте объем видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640*480, если глубина цвета равна 32? ответ дайте в килобайтах.

Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время.  Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания  и многое другое.  Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.

Var
A,B,m1,m2:integer;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
A:=abs(A);
B:=abs(B);
m1:=A mod 10;
A:=A div 10;
if A mod 10 > m1 then m1:=A mod 10;
A:= A div 10;
if A mod 10 > m1 then m1:=A mod 10;

m2:=B mod 10;
B:=B div 10;
if B mod 10 > m2 then m2:=B mod 10;
A:= B div 10;
if B mod 10 > m2 then m2:=B mod 10;

WriteLn('Максимальная цифра в A = ',m1);
WriteLn('Максимальная цифра в B = ',m2);
End.

Var
i:integer;
Begin
Write('Кратные 4: ');
For i:= 1 to 1000 do
   if i mod 4 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 8: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 2: ');
For i:= 1 to 1000 do
   if i mod 2 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 4,8,2: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

End.