Определите информационный объём текста с новым годом!

12 символов, значит объём текста

ВИДОВОЕ ПОНЯТИЕ - понятие, которое отображает существенные признаки класса предметов, являющегося видом какого-либо рода. Видовое понятие - подчинённое понятие, входящее в состав др., более общего понятия, которое называется родовым. Так, понятие «человек» - видовое понятие по отношению к понятию «млекопитающее», которое является родовым по отношению к понятию «человек». Всем объектам, отображённым в видовом понятии, присущи все признаки родового понятия, но вместе с тем им присущи свои видовые признаки, отличающие их от объектов др. видов, входящих в данное родовое понятие.

Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
    if A[i] mod 2 = 0 then Write(A[i],' ')
End.

Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
    Begin
    if A[i] mod 10 = 0 then A[i]:=0;
    Write(A[i],' ')
    End;
End.