Определите значение переменных s и i после выполнения фрагмента программы.

Логин занимает объём памяти равной  = 20 * 5 бит = 100 бит (5 бит, т.к )
Аналогично с паролем, он занимает 15 * 4 бита = 60 бит памяти
Для хранения результатов выбора пола достаточно одного бита ( всего два возможных варианта() - ж или м,).
Итого одна учетная запись занимает: 100 + 60 +1 = 161 бит памяти.
Но в условии сказано, что она кодируется минимально возможным целым! кол-вом байт, значит: 161/8 = 20,125 байт, округляем в большую сторону - 21 байт.
Всего 30 записей: 21 * 30 = 630 байт.
Значит верный ответ под номером 3)

Var n:integer;
a:array[1..27] of string[15]=
 ('один','два','три','четыре','пять','шесть','семь','восемь','девять',
  'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
  'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать', 
  'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
  'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
  then writeln(a[n])
  else begin 
       write(a[n div 10 + 18]);
       if n mod 10 <> 0 then write(' ',a[n mod 10]);
       writeln;
       end;
end. 

Пример:
N (1..99) = 46
сорок шесть