Ответ:
Разрешение * на глубину в битах.
640*480*32 = 9 830 400 размер в битах
Ответ в мегабайтах 1,2288
Иметь действующего персонажа.
Задать действие персонажу.
var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.