Полное решение + Нарисовать блок- схемы

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

ответ 2)                                

бухгалтерия, документооборот.

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.