решить на Pascal Вариант VI 2. Точно и четко сформулировать условие задачи, которая решается в данной программе:
Program Kr_2_3;
Var
A, B, I : Integer;
S : Integer;
Function Simple (N : Integer) : Boolean;
Var
I : Integer;
S : Boolean;
Begin
I := 2;
S := True;
While (I 0;
I := Succ(I)
End;
If N = 2 Then Simple := True Else Simple := S
End;
Begin
Write('Введите два натуральных числа А и В (B > A, A > 1) ');
ReadLn(A, B);
S := 0;
For I := A To B Do
If Simple(I) then S := S + I;
WriteLn('ответ: ', S)
End.
Задать числа A и B, определить, чему будет равно S.
3. Вычислить сумму
S = K - 2K + 3K - ... + (-1)n - 1 * KN.
4. Сравнить сумму элементов главной и побочной диагоналей квадратной матрицы.
5. Подсчитать количество букв в данной строке

Вопрос поставлен некорректно, поэтому и ответ такой.
Если говорить об информации содержащейся в письме (о его смысловой нагрузке), то её объём не зависит от количества знаков в алфавите. А если речь идёт об объёме информации, который потребовался для записи сообщения, то тогда другое дело.
У Мульти для записи одного символа используется 5 бит (2^5=32), а у Пульти 6 бит (2^6=64). Значит сообщение Мульти было записано с бит, а сообщение Пульти с бит.
Значит сообщение Пульти больше сообщения Мульти на 20 бит.

Программа в PascalABC.Net:
const
  digits=['0','1','2','3','4','5','6','7','8','9'];
var
  s:string;
  n,i,err:integer;
  isdigit:boolean;
begin
  Write('Введите натуральное число (1-9999): ');
  Read(s);
  i:=1;
  isdigit:=True;
  n:=Length(s);
  repeat
    isdigit:=isdigit and (s[i] in digits);
    Inc(i)
  until (not isdigit) or (i>n);
  if isdigit then
  begin Val(s,n,err); Writeln('Введено корректное число ',n) end
  else Writeln('Число содержит нецифровой символ')
end.

Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:
var
  s:string;
  n,err:integer;
begin
  Write('Введите натуральное число (1-9999): ');
  Read(s);
  Val(s,n,err);
  if err=0 then Writeln('Введено корректное число ',n)
  else Writeln('Число содержит нецифровой символ')
end.