Петя от­ре­дак­ти­ро­вал текст, каж­дая стра­ни­ца которого со­дер­жит 32 стро­ки, в каж­дой стро­ке 64 сим­во­ла. После редактирования объём текста увеличился на 3 стра­ни­цы. Каж­дый сим­вол в статье ко­ди­ру­ет­ся 16 битами. Опре­де­ли­те ин­фор­ма­ци­он­ный объём ста­тьи в Кбай­тах в этом ва­ри­ан­те пред­став­ле­ния Unicode после ре­дак­ти­ро­ва­ния, если ин­фор­ма­ци­он­ный объём текста до ре­дак­ти­ро­ва­ния был равен 2 Мбайт.​

Const
  n = 20;

var
  x: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln;
  Writeln('*** Результирующий массив ***');
  for i := 1 to n do
  begin
    if (x[i] mod 2) = 0 then x[i] := 0;
    Write(x[i]:4);
  end;
end.

Тестовое решение:
*** Исходный массив ***
  -4  -8  42  18  -4 -19 -35  21  19  32 -45  45 -43 -22 -17 -12  11   9 -47  37
*** Результирующий массив ***
   0   0   0   0   0 -19 -35  21  19   0 -45  45 -43   0 -17   0  11   9 -47  37

1 - в) caa
2 - в) в столбик
3 - в) char
4 - в) пояснительный текст не нужен
5 - в) символ заключается в апострофы

1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.

2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.