определите обём диска состоящего из 40 дорожек по 8 сектаров если каждый сектор содержит 512 символов записанных на 16 символьном алфавите

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
const
    n = 200;

var
    primes: array of integer;

begin
    primes := ArrGen(n, i -> i);
    
    for var i := 2 to round(sqrt(n)) do
    begin
        if not (primes.Contains(i)) then
            continue;
        var e := SeqWhile(i*i, x -> x + i, x -> x <= n);
        primes := primes.Except(e).ToArray;
    end;
    
    writeln('Простые числа < ', n, ':');
    writeln(primes);
    writeln;
    writeln('Время вычисления: ', Milliseconds / 1000);
end.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
  var m:=s.Length-n;
  if m>n then Writeln('В строке букв меньше иных символов')
  else
    if m<n then Writeln('В строке букв больше иных символов')
    else Writeln('В строке поровну букв и иных символов')
end.

Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов

Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов