Создайте форму под названием 《Об учебнике по информатике》.Цель формы -сбор информации об учебнике.​

1. Примерно так учат писать программы в большинстве школ

var
  n,s:integer;

begin
  s:=0;
  repeat
    Read(n);
    if n<>0 then
      if (n mod 6=0) and (n mod 10=2) then s:=s+n
  until n=0;
  Writeln(s)
end.

Пример
16
42
18
132
94
18
0
174

Кроме этого, зачем-то требуют блок-схему  - приведена во вложении, выполнена по ГОСТ 19.701-90 (ISO 5807-85).

2. А вот так эту задачу можно решить в современном Паскале

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0)
      .Where(t->(t mod 6=0) and (t mod 10=2)).Sum.Println
end.

И блок-схема тут вообще не нужна: она ничего не даст.

Сравнение явно не в пользу школьного "образования" - учить, как выполнять работу двадцать минут вместо двух.

ответ:

1) (16*32*30)/1024=15кб ответ: 3

2) каждый символ кодируется 16 битами или двумя байтами. всего символов 52, включая пробелы. следовательно, ответ 832 бит.

правильный ответ указан под номером 2

3) най­дем ко­ли­че­ство сим­во­лов в ста­тье:

4 · 48 · 64 = 22· 3 · 24 · 26 = 3 · 212.

один сим­вол ко­ди­ру­ет­ся одним бай­том, 210 байт со­став­ля­ют 1 ки­ло­байт, по­это­му ин­фор­ма­ци­он­ный объем ста­тьи со­став­ля­ет

3 · 212 байт = 3 · 22 ки­ло­байт = 12 кбайт.

пра­виль­ный ответ ука­зан под но­ме­ром 1.

4) -

5)найдем ко­ли­че­ство сим­во­лов в статье:

16 · 32 · 25 = 29·25.

один сим­вол ко­ди­ру­ет­ся двумя байтами, 210 байт со­став­ля­ют 1 килобайт, по­это­му ин­фор­ма­ци­он­ный объем ста­тьи со­став­ля­ет 25 кб.

правильный ответ ука­зан под но­ме­ром 1.